--- a/Scanner.st	Thu Aug 26 13:54:14 1999 +0200
+++ b/Scanner.st	Thu Aug 26 13:55:02 1999 +0200
@@ -611,24 +611,24 @@
     source skipSeparatorsExceptCR.
     hereChar := source peekOrNil.
     hereChar isLetter ifTrue:[
-        directive := source nextWord.
+        directive := source nextWord asLowercase.
         source peekOrNil == $: ifTrue:[
             source next.
             source skipSeparatorsExceptCR.
             hereChar := source peekOrNil.
 
             "
-             Package: 'name-of-package'
-             Package: packageId
+             package: 'name-of-package'
+             package: packageId
             "
-            directive = 'Package' ifTrue:[
+            directive = 'package' ifTrue:[
                 packageName := self parseDirectiveStringArg.
                 packageName notNil ifTrue:[
                     (requestor respondsTo:#setPackage:) ifTrue:[
                         requestor setPackage:packageName
                     ].
                 ] ifFalse:[
-                    Transcript showCR:'unrecognized ''Package'' directive'.
+                    Transcript showCR:'unrecognized ''package'' directive'.
                     ^ false
                 ]
             ].
@@ -637,8 +637,7 @@
              Namespace: 'nameSpaceIdentifier'
              Namespace: nameSpaceIdentifier
             "
-            (directive = 'Namespace' 
-            or:[directive = 'NameSpace']) ifTrue:[
+            (directive = 'namespace') ifTrue:[
                 namespace := self parseDirectiveStringArg.
                 namespace notNil ifTrue:[
                     (requestor respondsTo:#setNameSpace:) ifTrue:[
@@ -647,7 +646,7 @@
                         self setNameSpace:namespace
                     ].
                 ] ifFalse:[
-                    Transcript showCR:'unrecognized ''NameSpace'' directive'.
+                    Transcript showCR:'unrecognized ''namespace'' directive'.
                     ^ false
                 ].
             ].
@@ -656,14 +655,14 @@
              Uses: 'nameSpace1', ... , 'nameSpaceN'
              Uses: nameSpaceId1, ... , nameSpaceIdN
             "
-            directive = 'Uses' ifTrue:[
+            directive = 'uses' ifTrue:[
                 list := self parseDirectiveStringListArg.
                 list notNil ifTrue:[
                     (requestor respondsTo:#addNameSpaces:) ifTrue:[
                         requestor addNameSpaces:list 
                     ]
                 ] ifFalse:[
-                    Transcript showCR:'unrecognized ''Uses'' directive'.
+                    Transcript showCR:'unrecognized ''uses'' directive'.
                     ^ false
                 ]
             ].
@@ -671,14 +670,14 @@
             "
              Prerequisites: 'name-of-package', ... , 'name-of-package'
             "
-            directive = 'Prerequisites' ifTrue:[
+            directive = 'prerequisites' ifTrue:[
                 list := self parseDirectiveStringListArg.
                 list notNil ifTrue:[
                     (requestor respondsTo:#requirePackages:) ifTrue:[
                         requestor requirePackages:list 
                     ].
                 ] ifFalse:[
-                    Transcript showCR:'unrecognized ''Prerequisites'' directive'.
+                    Transcript showCR:'unrecognized ''prerequisites'' directive'.
                     ^ false
                 ]
             ].
@@ -2017,6 +2016,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.106 1999-07-20 15:58:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.107 1999-08-26 11:55:02 cg Exp $'
 ! !
 Scanner initialize!