--- a/Scanner.st	Wed Oct 05 09:23:11 2011 +0200
+++ b/Scanner.st	Wed Oct 05 09:24:11 2011 +0200
@@ -1817,8 +1817,13 @@
 initializeFor:aStringOrStream
     "initialize the new scanner & prepare for reading from aStringOrStream"
 
-    self initialize.
+    actionArray isNil ifTrue:[
+        "/ if not already initialized...
+        self initialize.
+    ].
     self source:aStringOrStream.
+
+    "Modified: / 05-10-2011 / 09:24:00 / cg"
 !
 
 requestor:anObject
@@ -3338,11 +3343,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.269 2011-10-05 07:23:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.270 2011-10-05 07:24:11 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.269 2011-10-05 07:23:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.270 2011-10-05 07:24:11 cg Exp $'
 ! !
 
 Scanner initialize!