--- a/Scanner.st	Mon Jan 09 09:35:52 2006 +0100
+++ b/Scanner.st	Mon Jan 09 09:57:51 2006 +0100
@@ -1192,21 +1192,21 @@
     |err|
 
     ignoreErrors ifFalse:[
-        requestor isNil ifTrue:[
-            Parser::ParseError isHandled ifTrue:[
-                err := Parser::ParseError new.
-                err errorMessage:aMessage startPosition:position endPosition:endPos.
-                err parameter:self.
-                err lineNumber:lineNr.
-                ^ err raiseRequest.
-            ] ifFalse:[
-                self showErrorMessage:aMessage position:position.
-            ].
-            ^ false
+        requestor notNil ifTrue:[
+            requestor error:aMessage position:position to:endPos from:self.
+            ^ self
         ].
-        ^ requestor error:aMessage position:position to:endPos from:self 
+
+        Parser::ParseError isHandled ifTrue:[
+            err := Parser::ParseError new.
+            err errorMessage:aMessage startPosition:position endPosition:endPos.
+            err parameter:self.
+            err lineNumber:lineNr.
+            err raiseRequest.
+            ^ self
+        ].
+        self showErrorMessage:aMessage position:position.
     ].
-    ^ false
 !
 
 notifyWarning:aMessage doNotShowAgainAction:doNotShowAgainAction position:position to:endPos
@@ -2992,7 +2992,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.204 2005-12-21 17:01:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.205 2006-01-09 08:57:51 cg Exp $'
 ! !
 
 Scanner initialize!