 	(beginning-of-line)
 	(delete-char 3)
         (forward-line)
-        (beginning-of-line)))))
+        (beginning-of-line))
+      (when current-frame-point (goto-char current-frame-point)))
+    ))
 
 (defun rdebug-goto-stack-frame (pt)
   "Show the rdebug stack frame corresponding at PT in the rdebug stack buffer."

         (string-to-number (substring s (match-beginning 2) (match-end 2))))
        ))))

(defun rdebug-goto-unittest-traceback-line (pt)
  "Displays the location in a source file of the Ruby traceback line."
  (interactive "d")
  (save-excursion
    (goto-char pt)
    (let ((s (buffer-substring (point-at-bol) (point-at-eol)))
	  (gud-comint-buffer (current-buffer)))
      (when (string-match rdebug-unittest-traceback-line-re s)
        (rdebug-display-line
         (substring s (match-beginning 1) (match-end 1))
         (string-to-number (substring s (match-beginning 2) (match-end 2))))

                                           'font-lock-face 'bold))
		(setq overlay-arrow-position (make-marker))
		(set-marker overlay-arrow-position (point))
		(setq current-frame-point (point)))
	    (add-text-properties b e
				 (list 'mouse-face 'highlight
				       'keymap rdebug-frames-mode-map))
