diff --git a/scheme/ikarus.cafe.ss b/scheme/ikarus.cafe.ss
index 0f72f4a..adfa3b8 100644
--- a/scheme/ikarus.cafe.ss
+++ b/scheme/ikarus.cafe.ss
@@ -70,26 +70,29 @@ description:
           (with-exception-handler
             (lambda (con)
               (reset-input-port! (console-input-port))
-              (flush-output-port (console-output-port))
-              (display "Unhandled exception\n" (console-error-port))
-              (print-condition con (console-error-port))
               (k (void)))
             (lambda ()
-              (display-prompt 0)
-              (let ([x (my-read k)])
-                (cond
-                  [(eof-object? x) 
-                   (newline (console-output-port))
-                   (escape-k (void))]
-                  [else
-                   (call-with-values
-                     (lambda () (eval-proc x))
-                     (lambda v*
-                       (unless (andmap (lambda (v) (eq? v (void))) v*)
-                         (for-each
-                           (lambda (v)
-                             (pretty-print v (console-output-port)))
-                           v*))))]))))))
+              (with-exception-handler
+                (lambda (con)
+                  (flush-output-port (console-output-port))
+                  (display "Unhandled exception\n" (console-error-port))
+                  (print-condition con (console-error-port)))
+                (lambda ()
+                  (display-prompt 0)
+                  (let ([x (my-read k)])
+                    (cond
+                      [(eof-object? x) 
+                       (newline (console-output-port))
+                       (escape-k (void))]
+                      [else
+                       (call-with-values
+                         (lambda () (eval-proc x))
+                         (lambda v*
+                           (unless (andmap (lambda (v) (eq? v (void))) v*)
+                             (for-each
+                               (lambda (v)
+                                 (pretty-print v (console-output-port)))
+                               v*))))]))))))))
       (wait eval-proc escape-k)))
 
   (define do-new-cafe
diff --git a/scheme/last-revision b/scheme/last-revision
index 9030a57..2a07070 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1528
+1529