diff --git a/lib/scheme/misc-macros.scm b/lib/scheme/misc-macros.scm
index 6f371fb1..f01d5db3 100644
--- a/lib/scheme/misc-macros.scm
+++ b/lib/scheme/misc-macros.scm
@@ -32,7 +32,7 @@
                  (lambda ()
                    (let ((var condition))      ; clauses may SET! var
                      (guard-aux (handler-k (lambda ()
-                                             (raise-continuable condition)))
+                                             (raise condition)))
                                 clause ...))))))))
           (lambda ()
             (let ((res (let () e1 e2 ...)))