--- a/Parser.st	Fri Jan 03 13:45:43 1997 +0100
+++ b/Parser.st	Fri Jan 03 16:19:05 1997 +0100
@@ -2756,6 +2756,13 @@
         self nextToken.
         ^ self
     ].
+
+    "/ special handling for |, which is also a lexical token
+    tokenType == $| ifTrue:[
+        tokenType := #BinaryOperator.
+        tokenName := '|'
+    ].
+
     (tokenType == #BinaryOperator) ifTrue:[
         selector := tokenName asSymbol.
         self nextToken.
@@ -2771,9 +2778,10 @@
         self nextToken.
         ^ self
     ].
+
     ^ #Error
 
-    "Modified: 20.4.1996 / 20:05:52 / cg"
+    "Modified: 3.1.1997 / 16:18:04 / cg"
 !
 
 parsePrimitiveOrResourceSpecOrEmpty
@@ -3919,6 +3927,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.117 1997-01-02 12:28:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.118 1997-01-03 15:19:05 cg Exp $'
 ! !
 Parser initialize!