--- a/Workspace.st	Mon Feb 20 22:30:35 2006 +0100
+++ b/Workspace.st	Tue Feb 21 13:17:30 2006 +0100
@@ -442,7 +442,7 @@
 
     |action|
 
-    self highlightingErrorPosition:relPos to:relEndPos do:[
+    self highlightingWarningPosition:relPos to:relEndPos do:[
         action := OptionBox 
                       request:aString
                       label:'Warning'
@@ -1274,5 +1274,5 @@
 !Workspace class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.153 2006-02-01 13:26:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/Workspace.st,v 1.154 2006-02-21 12:17:30 cg Exp $'
 ! !