diff --git a/code/debug.lisp b/code/debug.lisp
index dc88110900dcce7583ea321d3381b34878bda033..e14e5afc912cd38c4a331c1b9dd4f614a3911862 100644
--- a/code/debug.lisp
+++ b/code/debug.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.34 1993/06/24 12:50:29 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug.lisp,v 1.35 1993/07/02 14:18:15 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -638,7 +638,7 @@ See the CMU Common Lisp User's Manual for more information.
       (funcall hook condition hook)))
   (unix:unix-sigsetmask 0)
   (let* ((*debug-condition* condition)
-	 (*debug-restarts* (compute-restarts))
+	 (*debug-restarts* (compute-restarts condition))
 	 (*standard-input* *debug-io*)		;in case of setq
 	 (*standard-output* *debug-io*)		;''  ''  ''  ''
 	 (*error-output* *debug-io*)
@@ -1119,7 +1119,7 @@ See the CMU Common Lisp User's Manual for more information.
   (throw 'lisp::top-level-catcher nil))
 
 (def-debug-command "GO" ()
-  (continue)
+  (continue *debug-condition*)
   (error "No restart named continue."))
 
 (def-debug-command "RESTART" ()
@@ -1363,7 +1363,7 @@ See the CMU Common Lisp User's Manual for more information.
 (def-debug-command "STEP" ()
   (setf *number-of-steps* (read-if-available 1))
   (step *current-frame*)
-  (continue)
+  (continue *debug-condition*)
   (error "Couldn't continue."))
   
 ;;; Lists possible breakpoint locations, which are active, and where go will