--- a/Scanner.st	Wed Feb 25 15:12:54 1998 +0100
+++ b/Scanner.st	Fri Feb 27 13:54:16 1998 +0100
@@ -83,9 +83,10 @@
     "return a collection of characters which are allowed in
      binary selectors"
 
-    ^ #( $& $- $+ $= $* $/ $\ $< $> $~ $@ $, $? $!! $|)
+    ^ #( $& $- $+ $= $* $/ $\ $< $> $~ $@ $, $? $!! $| $%)
 
-    "Created: 4.1.1997 / 14:13:24 / cg"
+    "Created: / 4.1.1997 / 14:13:24 / cg"
+    "Modified: / 27.2.1998 / 02:01:28 / cg"
 !
 
 initialize
@@ -1676,6 +1677,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.73 1998-02-17 17:46:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.74 1998-02-27 12:54:16 cg Exp $'
 ! !
 Scanner initialize!