diff --git a/collects/drscheme/private/debug.ss b/collects/drscheme/private/debug.ss
index fb9c558e7f..52b129429c 100644
--- a/collects/drscheme/private/debug.ss
+++ b/collects/drscheme/private/debug.ss
@@ -210,8 +210,10 @@ profile todo:
                                              (λ () (loop (car exprs)))
                                              (default-continuation-prompt-tag)
                                              (λ args
-                                               (abort-current-continuation 
-                                                (default-continuation-prompt-tag)))))
+                                               (apply
+                                                abort-current-continuation 
+                                                (default-continuation-prompt-tag)
+                                                args))))
                                           list))]))]
                            [_else 
                             ;; Not `begin', so proceed with normal expand and eval