   (interactive "d")
   (save-excursion
     (goto-char pt)
-    (let ((s (buffer-substring (point-at-bol) (point-at-eol))))
+    (let ((s (concat "-->" (buffer-substring (point-at-bol) (point-at-eol)))))
       (when (string-match rdebug--stack-frame-regexp s)
         (let ((frame (substring s (match-beginning 2) (match-end 2))))
           (gud-call (concat "frame " frame)))))))


(defconst rdebug-traceback-line-re
  "^[ \t]+from \\([^:]+\\):\\([0-9]+\\)\\(in `.*'\\)?"
  "Regular expression that describes tracebacks.")

(defun rdebug-rdebugtrack-overlay-arrow (activation)
  "Activate or de arrow at beginning-of-line in current buffer."

		   (+ fn-start (match-beginning 1)) (+ fn-start (match-end 1))
		   (list 'face font-lock-function-name-face
			 'font-lock-face font-lock-function-name-face))))))
	;; remove initial '   '  or '-->'
	(beginning-of-line)
	(delete-char 3)
        (forward-line)
