--- a/Workspace.st	Thu Jul 11 17:04:37 2002 +0200
+++ b/Workspace.st	Thu Jul 11 23:28:27 2002 +0200
@@ -314,7 +314,7 @@
     self highlightingErrorPosition:relPos to:relEndPos do:[
         action := OptionBox 
                       request:aString
-                      label:'Error'
+                      label:'Correctable Error'
                       form:(WarningBox iconBitmap)
                       buttonLabels:#('Cancel' 'Declare as...' 'Correct...' 'Continue')
                       values:#(#abort #declare #correct #continue)
@@ -404,9 +404,9 @@
 
         lbl := aCompiler isNil ifTrue:['Compiler'] ifFalse:[aCompiler class name].
         asWarning ifTrue:[
-            lbl := lbl , ' warning'
+            lbl := lbl , ' Warning'
         ] ifFalse:[
-            lbl := lbl , ' error'.
+            lbl := lbl , ' Error'.
         ].
         box label:lbl.
         box form:(WarningBox iconBitmap).
@@ -1057,5 +1057,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.110 2002-06-06 17:18:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.111 2002-07-11 21:28:27 cg Exp $'
 ! !