 		   (+ 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)
         (beginning-of-line)))))
 
 (defun rdebug-goto-stack-frame (pt)
-  "Show the rdebug stack frame correspoding at PT in the rdebug stack buffer."
+  "Show the rdebug stack frame corresponding at PT in the rdebug stack buffer."
   (interactive "d")
   (save-excursion
     (goto-char pt)


;; -- locals

(defun rdebug--setup-locals-buffer (buf)
  (with-current-buffer buf
    (setq mode-name "RDEBUG Locals")))

;;-----------------------------------------------------------------------------
;; ALB - redefinition of gud-reset for our own purposes


;; -- stack

(defvar rdebug-frames-mode-map
  (let ((map (make-sparse-keymap)))
    (define-key map "q" 'kill-this-buffer)
    (define-key map [mouse-1] 'rdebug-goto-stack-frame-mouse)
    (define-key map [mouse-2] 'rdebug-goto-stack-frame-mouse)
    (define-key map [(control m)] 'rdebug-goto-stack-frame)
