--- _repl.scm.orig	Sun Feb 10 22:59:56 2008
+++ _repl.scm	Sun Mar  2 02:50:04 2008
@@ -880,6 +880,7 @@
 ,qt           : Terminate the current thread
 ,t            : Jump to toplevel REPL
 ,d            : Jump to enclosing REPL
+,r            : Display reason for entering this REPL
 ,c and ,(c X) : Continue the computation with stepping off
 ,s and ,(s X) : Continue the computation with stepping on (step)
 ,l and ,(l X) : Continue the computation with stepping on (leap)
@@ -2351,10 +2352,10 @@
                       (continue))
                      ((##eq? cmd 'e)
                       (##repl-channel-display-multiline-message
-                       (lambda (output-port)
-                         (##cmd-e (first-interesting
-                                   (macro-repl-context-cont repl-context))
-                                  output-port)))
+                      (lambda (output-port)
+                        (##cmd-e (first-interesting
+                                  (macro-repl-context-cont repl-context))
+                                 output-port)))
                       (continue))
                      ((##eq? cmd 't)
                       (cmd-t))
@@ -2365,6 +2366,14 @@
                       (quit))
                      ((##eq? cmd 'qt)
                       (quit-thread))
+                     ((##eq? cmd 'r)
+                      (if write-reason
+                        (##repl-channel-display-multiline-message
+                        (lambda (output-port)
+                          (write-reason (first-interesting
+                                         (macro-repl-context-cont repl-context))
+                                        output-port))))
+                      (continue))
                      ((and (##fixnum? cmd)
                            (##not (##fixnum.< cmd 0)))
                       (goto-depth cmd))