--- a/Parser.st	Tue Mar 25 19:43:53 2003 +0100
+++ b/Parser.st	Thu Mar 27 14:59:40 2003 +0100
@@ -330,9 +330,12 @@
     LineNumberInfo := false.
 
     ParseErrorSignal isNil ifTrue:[
-        ParseErrorSignal := Error newSignalMayProceed:true.
+        ParseErrorSignal := ParseError.
         ParseErrorSignal notifierString:'parse error'.
-        ParseErrorSignal nameClass:self message:#parseErrorSignal.
+
+"/        ParseErrorSignal := Error newSignalMayProceed:true.
+"/        ParseErrorSignal notifierString:'parse error'.
+"/        ParseErrorSignal nameClass:self message:#parseErrorSignal.
     ].
     RestartCompilationSignal := Signal new.
 
@@ -7054,7 +7057,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.372 2003-02-25 11:54:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.373 2003-03-27 13:59:40 cg Exp $'
 ! !
 
 Parser initialize!