--- a/Parser.st	Sat Sep 06 20:44:31 1997 +0200
+++ b/Parser.st	Sun Sep 07 01:25:50 1997 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-'From Smalltalk/X, Version:3.1.9 on 31-aug-1997 at 8:07:12 pm'                  !
+'From Smalltalk/X, Version:3.1.9 on 7-sep-1997 at 2:21:11 pm'                   !
 
 Scanner subclass:#Parser
 	instanceVariableNames:'classToCompileFor selfValue contextToEvaluateIn selector
@@ -22,7 +22,7 @@
 		hasNonOptionalPrimitiveCode primitiveNr primitiveResource logged
 		warnedUndefVars warnSTXHereExtensionUsed correctedSource
 		foldConstants lineNumberInfo currentNamespace
-		currentUsedNamespaces'
+		currentUsedNamespaces warnUndeclared'
 	classVariableNames:'PrevClass PrevInstVarNames PrevClassVarNames
 		PrevClassInstVarNames LazyCompilation ArraysAreImmutable
 		ImplicitSelfSends WarnST80Directives FoldConstants LineNumberInfo
@@ -2141,6 +2141,8 @@
 
     |doCorrect msg idx|
 
+    warnUndeclared ifFalse:[^ false].
+
     "
      alredy warned about this one ?
     "
@@ -2191,7 +2193,7 @@
 
     ^ doCorrect
 
-    "Modified: 30.8.1997 / 01:21:56 / cg"
+    "Modified: 7.9.1997 / 02:14:36 / cg"
 ! !
 
 !Parser methodsFor:'parsing'!
@@ -4113,8 +4115,9 @@
     parseForCode := false.
     foldConstants := FoldConstants.
     lineNumberInfo := LineNumberInfo.
-
-    "Modified: 21.10.1996 / 12:34:01 / cg"
+    warnUndeclared := true.
+
+    "Modified: 7.9.1997 / 02:04:34 / cg"
 !
 
 parseForCode
@@ -4151,6 +4154,12 @@
 	    Parser update:PrevClass
 	]
     ]
+!
+
+warnUndeclared:aBoolean
+    warnUndeclared := aBoolean.
+
+    "Created: 7.9.1997 / 02:05:00 / cg"
 ! !
 
 !Parser methodsFor:'statistic'!
@@ -4196,6 +4205,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.145 1997-09-02 18:29:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.146 1997-09-06 23:25:50 cg Exp $'
 ! !
 Parser initialize!