--- a/Workspace.st	Sat Jul 02 18:48:38 2011 +0200
+++ b/Workspace.st	Sun Jul 03 21:53:51 2011 +0200
@@ -792,7 +792,7 @@
                         request:aString 
                         buttonLabels:(resources array:#('Continue' "'Keep Selected'" 'Abort' )) 
                         values:#(true "#keepSelected" false)
-                        default:false.
+                        default:(asWarning ifTrue:true ifFalse:false).
             ].
 "/            box := YesNoBox
 "/                    title:aString
@@ -835,7 +835,7 @@
     ^ false
 
     "Created: / 24-11-1995 / 22:56:34 / cg"
-    "Modified: / 30-06-2011 / 19:43:39 / cg"
+    "Modified: / 03-07-2011 / 19:56:37 / cg"
 !
 
 highlightingErrorLine:lineNr do:aBlock
@@ -1897,5 +1897,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.235 2011-06-30 19:14:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.236 2011-07-03 19:53:51 cg Exp $'
 ! !