--- a/Parser.st	Thu Sep 30 17:21:05 2004 +0200
+++ b/Parser.st	Sat Oct 16 14:13:32 2004 +0200
@@ -5600,8 +5600,7 @@
             self parseError:'number expected after sign.' position:pos to:tokenPosition.
             ^ #Error.
         ].
-        node value:(node value negated).
-        ^ node
+        ^ ConstantNode type:(node type) value:(node value negated).
     ].
 
     (tokenType == #Error) ifTrue:[^ #Error].
@@ -7818,7 +7817,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.444 2004-09-30 15:21:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.445 2004-10-16 12:13:32 cg Exp $'
 ! !
 
 Parser initialize!