--- a/Scanner.st	Fri Nov 08 14:13:15 1996 +0100
+++ b/Scanner.st	Fri Nov 08 14:15:29 1996 +0100
@@ -288,6 +288,8 @@
                 namespace notNil ifTrue:[
                     (requestor respondsTo:#setNameSpace:) ifTrue:[
                         requestor setNameSpace:namespace 
+                    ] ifFalse:[
+                        self setNameSpace:namespace
                     ].
                 ].
             ].
@@ -299,7 +301,7 @@
                 list := self parseDirectiveStringListArg.
                 (requestor respondsTo:#useNameSpaces:) ifTrue:[
                     requestor useNameSpaces:list 
-                ].
+                ]
             ].
 
             "
@@ -315,7 +317,7 @@
     ].
     hereChar := source peek.
 
-    "Modified: 5.11.1996 / 22:03:30 / cg"
+    "Modified: 8.11.1996 / 13:33:18 / cg"
 !
 
 parseDirectiveStringArg
@@ -600,6 +602,12 @@
     "set the requestor to be notified"
 
     requestor := anObject
+!
+
+setNameSpace:aNameSpace
+    "/ ignored here
+
+    "Created: 8.11.1996 / 13:33:10 / cg"
 ! !
 
 !Scanner methodsFor:'reading next token'!
@@ -1214,6 +1222,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.52 1996-11-05 22:21:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.53 1996-11-08 13:15:29 cg Exp $'
 ! !
 Scanner initialize!