 
 (defconst rdebug--stack-frame-regexp
   "^\\(-->\\|   \\) +#\\([0-9]+\\) +\\(.*\\)at line +\\([^:]+\\):\\([0-9]+\\)$"
-  "Regexp to recognize stack frame lines in rdebug stack buffers.")
+  "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)
-	  (frame-point nil) ; position in stack buffer of selected frame
+	  (current-frame-point nil) ; position in stack buffer of selected frame
 	  )
       (setq mode-name "RDEBUG Stack Frames")
       (goto-char (point-min))

	(beginning-of-line)
	(delete-char 3)
        (forward-line)
        (beginning-of-line)))))

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