diff --git a/scheme/ikarus.exceptions.ss b/scheme/ikarus.exceptions.ss
index 2de2e1f..2bdf7cc 100644
--- a/scheme/ikarus.exceptions.ss
+++ b/scheme/ikarus.exceptions.ss
@@ -32,7 +32,8 @@
           (display "Unhandled exception:\n" (console-error-port))
           (print-condition x (console-error-port))
           (when (serious-condition? x)
-            (exit -1))))))
+            (exit -1)))
+        (lambda args (exit -1)))))
   
   (define (with-exception-handler handler proc2)
     (unless (procedure? handler)
diff --git a/scheme/last-revision b/scheme/last-revision
index 9f43b76..96764d9 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1501
+1502