--- a/Workspace.st	Mon Jun 07 11:36:00 2004 +0200
+++ b/Workspace.st	Tue Jun 08 20:08:20 2004 +0200
@@ -552,7 +552,7 @@
         action := OptionBox 
                       request:aString
                       label:'Warning'
-                      form:(WarningBox iconBitmap)
+                      image:(WarningBox iconBitmap)
                       buttonLabels:#('Cancel' 'Remove Variable(s)' 'Continue')
                       values:#(#abort #correct #continue)
                       default:#continue.
@@ -1185,5 +1185,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.143 2004-05-18 13:29:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.144 2004-06-08 18:08:20 cg Exp $'
 ! !