diff --git a/scheme/ikarus.cafe.ss b/scheme/ikarus.cafe.ss
index b6f5600..a7444c0 100644
--- a/scheme/ikarus.cafe.ss
+++ b/scheme/ikarus.cafe.ss
@@ -69,14 +69,15 @@ description:
           (display-prompt 0)
           (let ([x (with-exception-handler
                      (lambda (ex)
-                       (cond [(lexical-violation? ex)
-                              (print-ex ex)
-                              (reset k)]
-                             [(interrupted-condition? ex)
-                              (flush-output-port (console-output-port))
-                              (newline (console-output-port))
-                              (reset k)]
-                             [else (raise-continuable ex)]))
+                       (cond 
+                         [(lexical-violation? ex)
+                          (print-ex ex)
+                          (reset k)]
+                         [(interrupted-condition? ex)
+                          (flush-output-port (console-output-port))
+                          (newline (console-output-port))
+                          (reset k)]
+                         [else (raise-continuable ex)]))
                      (lambda ()
                        (read (console-input-port))))])
             (cond
@@ -101,10 +102,19 @@ description:
                            (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 (ex)
+                         (cond 
+                           [(interrupted-condition? ex)
+                            (flush-output-port (console-output-port))
+                            (newline (console-output-port))
+                            (reset k)]
+                           [else (raise-continuable ex)]))
+                       (lambda ()
+                         (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 9cc2f9d..43a79d2 100644
--- a/scheme/last-revision
+++ b/scheme/last-revision
@@ -1 +1 @@
-1694
+1695