--- a/PositionableStream.st	Wed Aug 01 16:49:28 2001 +0200
+++ b/PositionableStream.st	Thu Aug 02 11:52:38 2001 +0200
@@ -348,7 +348,8 @@
           form:(WarningBox iconBitmap)
           buttonLabels:labels
           values:values
-          default:#continue.
+          default:#continue
+          onCancel:#abort.
 
     "Modified: 10.1.1997 / 18:00:56 / cg"
 !
@@ -680,7 +681,8 @@
 "/                          values:#(#abort #skip #debug #keep #keepAll #continue #continueForAll)
                           buttonLabels:#('cancel' 'skip' 'debug' 'continue' 'continue all')
                           values:#(#abort #skip #debug #keep #keepAll)
-                          default:#continue.
+                          default:#continue
+                          onCancel:#abort.
         ] ifFalse:[
             action := self askForDebug:msg withCRs canContinueForAll:canContinueForAll.
         ].
@@ -1049,6 +1051,6 @@
 !PositionableStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.98 2000-12-30 22:21:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.99 2001-08-02 09:52:38 cg Exp $'
 ! !
 PositionableStream initialize!