--- a/Scanner.st	Sun Nov 09 12:26:13 2008 +0100
+++ b/Scanner.st	Mon Nov 10 18:02:51 2008 +0100
@@ -2904,7 +2904,9 @@
             ].
             ch := hereChar
         ].
-        tokenPosition := source position1Based.
+        source isPositionable ifTrue:[
+            tokenPosition := source position1Based.
+        ].
         tokenLineNr := lineNr.
 
         (v := ch codePoint) == 0 ifTrue:[
@@ -3176,7 +3178,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.238 2008-11-03 11:20:37 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.239 2008-11-10 17:02:51 cg Exp $'
 ! !
 
 Scanner initialize!