--- a/Scanner.st	Wed Sep 05 17:40:57 2001 +0200
+++ b/Scanner.st	Fri Sep 07 17:09:25 2001 +0200
@@ -134,6 +134,15 @@
         TypeArray at:(binop asciiValue) put:#special.
         ActionArray at:(binop asciiValue) put:block
     ].
+    "/ for vw5i4 compatibility add:
+"/    TypeArray   at:16rB1 put:#special.     "/ plus-minus
+"/    ActionArray at:16rB1 put:#block.
+"/    TypeArray   at:16rD7 put:#special.     "/ times
+"/    ActionArray at:16rD7 put:#block.
+"/    TypeArray   at:16rB7 put:#special.     "/ centered dot
+"/    ActionArray at:16rB7 put:#block.
+"/    TypeArray   at:16rF7 put:#special.     "/ divide
+"/    ActionArray at:16rF7 put:#block.
 
     "/ that one is a special case (both binarySelector AND syntax).
     TypeArray at:($| asciiValue) put:nil.
@@ -2117,6 +2126,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.124 2000-10-26 20:03:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.125 2001-09-07 15:09:25 cg Exp $'
 ! !
 Scanner initialize!