--- a/Parser.st	Wed Jul 07 11:18:40 2004 +0200
+++ b/Parser.st	Thu Jul 08 13:57:31 2004 +0200
@@ -3293,29 +3293,33 @@
     "redefined since parser can give more detailed info about
      the class & selector where the error occured."
 
-    |text|
+    |msg|
 
     ignoreErrors ifFalse:[
         Smalltalk silentLoading == true ifFalse:[
+            msg := ''.
             pos notNil ifTrue:[
-                Transcript show:(pos printString).
-                Transcript show:' '.
+                msg := msg , (pos printString).
+                msg := msg , ' '.
             ].
+            msg := msg , aMessage.
             selector notNil ifTrue:[
-                Transcript show:aMessage.
+                msg := msg , ' in '.
                 classToCompileFor notNil ifTrue:[
-                    text := ' in ' , classToCompileFor name , '>>' , selector
-                ] ifFalse:[
-                    text := ' in ' , selector
-                ]
+                    msg := msg , classToCompileFor name , '>>'
+                ].
+                msg := msg , selector.
             ] ifFalse:[
                 classToCompileFor notNil ifTrue:[
-                    text := aMessage , ' (' , classToCompileFor name , ')'
-                ] ifFalse:[
-                    text := aMessage
+                    msg := msg , ' (' , classToCompileFor name , ')'
                 ]
             ].
-            Transcript showCR:text.
+
+            UserInformation isHandled ifTrue:[
+                UserInformation raiseErrorString:msg
+            ] ifFalse:[
+                Transcript showCR:msg.
+            ]
         ]
     ]
 
@@ -7615,7 +7619,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.432 2004-07-07 09:17:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.433 2004-07-08 11:57:31 ca Exp $'
 ! !
 
 Parser initialize!