--- a/Workspace.st	Fri Sep 06 14:37:23 2013 +0200
+++ b/Workspace.st	Fri Sep 06 18:02:54 2013 +0200
@@ -892,6 +892,7 @@
                         buttonLabels:(resources array:#('Abort'  "'Keep Selected'" 'Continue')) 
                         values:#(false "#keepSelected" true)
                         default:(asWarning ifTrue:true ifFalse:false).
+                answer := answer ? false.   "/ if escaped
             ].
 "/            box := YesNoBox
 "/                    title:aString
@@ -2533,10 +2534,10 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.297 2013-09-05 13:37:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.298 2013-09-06 16:02:54 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.297 2013-09-05 13:37:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.298 2013-09-06 16:02:54 cg Exp $'
 ! !