--- a/PositionableStream.st	Fri Sep 10 14:58:56 1999 +0200
+++ b/PositionableStream.st	Fri Sep 10 16:53:59 1999 +0200
@@ -711,7 +711,9 @@
             ex proceedWith:nil
         ].
         action == #debug ifTrue:[
-            Debugger enter:ex suspendedContext withMessage:ex errorString.
+            Debugger enter:ex suspendedContext 
+                     withMessage:ex errorString 
+                     mayProceed:true.
             ex proceedWith:proceedValue
         ].
 
@@ -725,7 +727,7 @@
     ^ lastValue
 
     "Modified: / 3.2.1999 / 11:30:10 / cg"
-    "Modified: / 18.3.1999 / 18:26:55 / stefan"
+    "Modified: / 10.9.1999 / 16:51:20 / stefan"
 ! !
 
 !PositionableStream methodsFor:'positioning'!
@@ -1011,6 +1013,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.80 1999-08-26 11:53:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.81 1999-09-10 14:53:59 stefan Exp $'
 ! !
 PositionableStream initialize!