--- a/Scanner.st	Fri Feb 05 13:59:30 2010 +0100
+++ b/Scanner.st	Mon Feb 08 13:03:10 2010 +0100
@@ -1316,6 +1316,11 @@
     |err|
 
     ignoreErrors ifFalse:[
+        "/ backward compatibility - will vanish eventually (use a handler, Luke)
+        requestor notNil ifTrue:[
+            requestor error:aMessage position:position to:endPos from:self.
+            ^ self
+        ].
         Parser::ParseError isHandled ifTrue:[
             err := Parser::ParseError new.
             err errorMessage:aMessage startPosition:position endPosition:endPos.
@@ -1324,11 +1329,6 @@
             err raiseRequest.
             ^ self
         ].
-        "/ backward compatibility - will vanish eventually (use a handler, Luke)
-        requestor notNil ifTrue:[
-            requestor error:aMessage position:position to:endPos from:self.
-            ^ self
-        ].
         self showErrorMessage:aMessage position:position.
     ].
 
@@ -3274,11 +3274,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.253 2009-12-01 20:03:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.254 2010-02-08 12:03:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.253 2009-12-01 20:03:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.254 2010-02-08 12:03:10 cg Exp $'
 ! !
 
 Scanner initialize!