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

         (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))))


(defconst rdebug--stack-frame-regexp
  "^\\(-->\\|   \\) +#\\([0-9]+\\) +\\(.*\\)at line +\\([^:]+\\):\\([0-9]+\\)$"
  "Regexp to recognize stack fracme lines in rdebug stack buffers.")

(defun rdebug--setup-stack-buffer (buf)
  "Detects stack frame lines and sets up mouse navigation."
  (with-current-buffer buf
    (let ((inhibit-read-only t)
	  (current-frame-point nil) ; position in stack buffer of selected frame
	  )
      (setq mode-name "RDEBUG Stack Frames")
      (goto-char (point-min))
