--- a/Scanner.st	Tue Nov 02 13:38:25 2010 +0100
+++ b/Scanner.st	Tue Nov 02 13:43:04 2010 +0100
@@ -1258,6 +1258,28 @@
     "Created: / 19.1.2000 / 16:28:03 / cg"
 !
 
+correctableWarning:message position:pos1 to:pos2
+    "report an error which can be corrected by compiler -
+     return non-false, if correction is wanted (there is more than
+     true/false returned here)"
+
+    |correctIt|
+
+    requestor isNil ifTrue:[
+"/        self showErrorMessage:message position:pos1.
+        correctIt := false
+    ] ifFalse:[
+        correctIt := requestor correctableWarning:message position:pos1 to:pos2 from:self
+    ].
+
+    (correctIt == false or:[correctIt == #Error]) ifTrue:[
+        exitBlock value
+    ].
+    ^ correctIt
+
+    "Created: / 02-11-2010 / 13:32:32 / cg"
+!
+
 errorMessagePrefix
     ^ 'Error:'
 !
@@ -3261,11 +3283,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.255 2010-05-11 11:41:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.256 2010-11-02 12:43:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.255 2010-05-11 11:41:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.256 2010-11-02 12:43:04 cg Exp $'
 ! !
 
 Scanner initialize!