--- a/Scanner.st	Thu Apr 25 15:09:32 2013 +0200
+++ b/Scanner.st	Thu Apr 25 15:10:17 2013 +0200
@@ -3124,7 +3124,7 @@
                     (allowPeriodInSymbol and:[string last == $.]) ifTrue:[
                         peekChar := nextChar.
                         nextChar := $..
-                        string := string copyWithoutLast:1.
+                        string := string copyButLast:1.
                         tokenValue := token := string asSymbol.
                         tokenType := #Symbol.
                         ^ tokenType
@@ -3572,11 +3572,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.292 2013-04-18 12:46:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.293 2013-04-25 13:10:17 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.292 2013-04-18 12:46:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.293 2013-04-25 13:10:17 stefan Exp $'
 ! !