--- a/Parser.st	Thu Nov 05 18:37:55 2009 +0100
+++ b/Parser.st	Thu Nov 05 23:12:25 2009 +0100
@@ -9433,7 +9433,7 @@
 
     [
         (tokenType = $*) 
-        or:[((tokenType == #BinaryOperator) and:[tokenName conform:[:ch | ch = '*']])]
+        or:[((tokenType == #BinaryOperator) and:[tokenName conform:[:ch | ch = $*]])]
     ] whileTrue:[
         "/ that many indirections added
         tokenName size timesRepeat:[
@@ -9715,11 +9715,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.619 2009-11-05 14:52:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.620 2009-11-05 22:12:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.619 2009-11-05 14:52:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.620 2009-11-05 22:12:25 cg Exp $'
 ! !
 
 Parser initialize!