diff --git a/BUGS b/BUGS
index 7668d41..8cc773c 100644
--- a/BUGS
+++ b/BUGS
@@ -1,9 +1,20 @@
 * FIX: Error in generate-code: BUG: unhandles single rv.
 
+
+
+
+
+Not applicable anymore:
+
 * In libcompile.ss:
   If you move the (initialize-system) call to the very bottom of the
   library, the system crashes on startup.  
 
+
+
+
+Fixed:
+
 * Investigate what happens when an interrupt occurs during a write.
 
    > (define (f) (write (gensym)) (newline) (f))
diff --git a/src/ikarus.boot b/src/ikarus.boot
index 8577b43..da76783 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/ikarus.handlers.ss b/src/ikarus.handlers.ss
index e69ae25..f3eb17a 100644
--- a/src/ikarus.handlers.ss
+++ b/src/ikarus.handlers.ss
@@ -30,7 +30,7 @@
   (define interrupt-handler
     (make-parameter
       (lambda ()
-        (flush-output-port (console-output-port))
+        (set-port-output-index! (console-output-port) 0)
         (error #f "interrupted"))
       (lambda (x)
         (if (procedure? x)