diff --git a/scheme/ikarus.exceptions.ss b/scheme/ikarus.exceptions.ss
index b8cc285..2de2e1f 100644
--- a/scheme/ikarus.exceptions.ss
+++ b/scheme/ikarus.exceptions.ss
@@ -31,7 +31,8 @@
         (lambda (x) 
           (display "Unhandled exception:\n" (console-error-port))
           (print-condition x (console-error-port))
-          (exit -1)))))
+          (when (serious-condition? x)
+            (exit -1))))))
   
   (define (with-exception-handler handler proc2)
     (unless (procedure? handler)
diff --git a/scheme/last-revision b/scheme/last-revision
index 4efaa29..19a5f54 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1430
+1432