--- a/Scanner.st	Mon Feb 24 17:59:52 2003 +0100
+++ b/Scanner.st	Mon Feb 24 18:17:33 2003 +0100
@@ -2230,7 +2230,7 @@
                     tokenType := #BinaryOperator.
                     self 
                         warnPossibleIncompatibility:'add a space before ''-'' for compatibility with other ST systems' 
-                        position:p-1 
+                        position:p-(PositionableStream zeroPosition) 
                         to:p.
                     ^ tokenType
                 ]
@@ -2252,7 +2252,7 @@
                             tokenType := #BinaryOperator.
                             self 
                                 warnPossibleIncompatibility:'add a space before ''-'' for compatibility with other ST systems' 
-                                position:p-1 
+                                position:p-(PositionableStream zeroPosition) 
                                 to:p.
                             ^ tokenType
                         ]
@@ -2612,7 +2612,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.161 2003-01-31 15:24:12 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.162 2003-02-24 17:17:33 cg Exp $'
 ! !
 
 Scanner initialize!