diff --git a/interface/debug.lisp b/interface/debug.lisp
index a977da74e03faf684b7b62d26e758c135114d7a0..753f70d39a7f48febb51ec93a3ab2e7c81aa1257 100644
--- a/interface/debug.lisp
+++ b/interface/debug.lisp
@@ -563,7 +563,7 @@
       (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*)