--- a/PeekableStream.st	Thu Jan 27 11:31:23 2005 +0100
+++ b/PeekableStream.st	Thu Jan 27 11:32:31 2005 +0100
@@ -399,7 +399,8 @@
         (Screen isNil or:[Screen current isNil]) ifTrue:[
             sender := ex suspendedContext sender.
             msg := (msg , '\\in ' , sender receiver class name , '>>' , sender selector) withCRs.
-            self notify:msg.
+            "/ self notify:msg.
+	    MiniDebugger enterWithMessage:msg mayProceed:true.
             ex return
         ].
 
@@ -931,7 +932,7 @@
 !PeekableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.26 2005-01-26 17:29:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PeekableStream.st,v 1.27 2005-01-27 10:32:31 cg Exp $'
 ! !
 
 PeekableStream initialize!