--- a/ReadEvalPrintLoop.st	Thu Dec 07 19:39:42 2006 +0100
+++ b/ReadEvalPrintLoop.st	Thu Dec 07 19:40:47 2006 +0100
@@ -226,6 +226,7 @@
      Otherwise, lines up to an empty line (or EOF) are read."
 
     ControlInterrupt handle:[:ex |
+        self errorStream nextPutLine:('Cought: ', ex description).
         ex restart.
     ] do:[
         [
@@ -307,11 +308,11 @@
     "
 
     "Created: / 07-12-2006 / 17:27:21 / cg"
-    "Modified: / 07-12-2006 / 19:40:16 / cg"
+    "Modified: / 07-12-2006 / 19:41:20 / cg"
 ! !
 
 !ReadEvalPrintLoop class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.16 2006-12-07 18:39:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ReadEvalPrintLoop.st,v 1.17 2006-12-07 18:40:47 cg Exp $'
 ! !