--- a/Scanner.st	Tue Nov 05 23:18:50 1996 +0100
+++ b/Scanner.st	Tue Nov 05 23:21:12 1996 +0100
@@ -282,7 +282,8 @@
             "
              Namespace: 'name-of-package'
             "
-            directive = 'Namespace' ifTrue:[
+            (directive = 'Namespace' 
+            or:[directive = 'NameSpace']) ifTrue:[
                 namespace := self parseDirectiveStringArg.
                 namespace notNil ifTrue:[
                     (requestor respondsTo:#setNameSpace:) ifTrue:[
@@ -314,7 +315,7 @@
     ].
     hereChar := source peek.
 
-    "Modified: 5.11.1996 / 20:32:14 / cg"
+    "Modified: 5.11.1996 / 22:03:30 / cg"
 !
 
 parseDirectiveStringArg
@@ -1213,6 +1214,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.51 1996-11-05 19:32:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.52 1996-11-05 22:21:12 cg Exp $'
 ! !
 Scanner initialize!