--- a/Scanner.st	Fri Jun 21 09:44:00 2013 +0200
+++ b/Scanner.st	Fri Jun 21 09:51:25 2013 +0200
@@ -959,7 +959,7 @@
 
     className := self parseDirectiveClassNameArg.
     className isNil ifTrue:[
-        Transcript showCR:'unrecognized ''Class'' directive'.
+        Transcript showCR:'Scanner [warning]: unrecognized ''Class'' directive'.
         ^ false
     ].
     lastDirective := Directive newClassDirective className:className.
@@ -975,7 +975,7 @@
 
     className := self parseDirectiveClassNameArg.
     className isNil ifTrue:[
-        Transcript showCR:'unrecognized ''ClassHint'' directive'.
+        Transcript showCR:'Scanner [warning]: unrecognized ''ClassHint'' directive'.
         ^ false
     ].
     lastDirective := Directive newClassHintDirective className:className.
@@ -1146,7 +1146,7 @@
 
     namespace := self parseDirectiveStringArg.
     namespace isNil ifTrue:[
-        Transcript showCR:'unrecognized ''Namespace'' directive'.
+        Transcript showCR:'Scanner [warning]: unrecognized ''Namespace'' directive'.
         ^ false
     ].
     target := (requestor notNil and:[ requestor respondsTo:#setNameSpace: ]) ifTrue:[requestor] ifFalse:[self].
@@ -1164,7 +1164,7 @@
 
     packageName := self parseDirectiveStringArg.
     packageName isNil ifTrue:[
-        Transcript showCR:'unrecognized ''Package'' directive'.
+        Transcript showCR:'Scanner [warning]: unrecognized ''Package'' directive'.
         ^ false
     ].
     packageName := packageName asSymbol.
@@ -1182,7 +1182,7 @@
 
     list := self parseDirectiveStringListArg.
     list isNil ifTrue:[
-        Transcript showCR:'unrecognized ''Prerequisites'' directive'.
+        Transcript showCR:'Scanner [warning]: unrecognized ''Prerequisites'' directive'.
         ^ false
     ].
     (requestor notNil and:[requestor respondsTo:#requirePackages:]) ifTrue:[
@@ -1200,7 +1200,7 @@
 
     list := self parseDirectiveStringListArg.
     list isNil ifTrue:[
-        Transcript showCR:'unrecognized ''Requires'' directive'.
+        Transcript showCR:'Scanner [warning]: unrecognized ''Requires'' directive'.
         ^ false
     ].
 "/ self halt.
@@ -1221,7 +1221,7 @@
 
     syntax := self parseDirectiveStringArg.
     syntax isNil ifTrue:[
-        Transcript showCR:'unrecognized ''Syntax'' directive'.
+        Transcript showCR:'Scanner [warning]: unrecognized ''Syntax'' directive'.
         ^ false
     ].
     target := (requestor notNil and:[ requestor respondsTo:#setSyntax: ]) ifTrue:[requestor] ifFalse:[self].
@@ -1239,7 +1239,7 @@
 
     list := self parseDirectiveStringListArg.
     list isNil ifTrue:[
-        Transcript showCR:'unrecognized ''Uses'' directive'.
+        Transcript showCR:'Scanner [warning]: unrecognized ''Uses'' directive'.
         ^ false
     ].
     (requestor notNil and:[requestor respondsTo:#addNameSpaces:]) ifTrue:[
@@ -3593,11 +3593,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.297 2013-06-21 07:41:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.298 2013-06-21 07:51:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.297 2013-06-21 07:41:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.298 2013-06-21 07:51:25 cg Exp $'
 ! !