--- a/Scanner.st	Fri Aug 09 14:25:16 2002 +0200
+++ b/Scanner.st	Tue Aug 13 18:39:33 2002 +0200
@@ -1484,9 +1484,11 @@
     "this allows excla to be used as binop -
      I dont know, if this is correct ..."
 
-    tokenName := token := '!!'.
-    tokenType := #BinaryOperator.
-    ^ tokenType
+"/    tokenName := token := '!!'.
+"/    tokenType := #BinaryOperator.
+"/    ^ tokenType
+
+    ^ self nextSpecialWith:$!!.
 !
 
 nextHash
@@ -2349,6 +2351,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.151 2002-08-02 12:25:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.152 2002-08-13 16:39:33 cg Exp $'
 ! !
 Scanner initialize!