 		   (+ 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 -->
+	;; remove initial '   '  or '-->'
 	(beginning-of-line)
 	(delete-char 3)
         (forward-line)

 "Group position in rdebug-position-re that matches the line number.")

(defconst rdebug-annotation-start-regexp
  "^\\([a-z]+\\)\n"
  "Start of an annotation. Note that in contrast to
gud-rdebug-marker-regexp, we don't allow a colon. That's what
distinguishes the two."  )
(defconst rdebug-annotation-end-regexp
  "\n")


        ))))

(defun rdebug-goto-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-traceback-line-re s)
        (rdebug-display-line
         (substring s (match-beginning 1) (match-end 1))
