--- a/Parser.st	Wed Jul 16 21:10:19 2003 +0200
+++ b/Parser.st	Thu Jul 17 13:37:56 2003 +0200
@@ -3016,8 +3016,9 @@
                 "if it is an uninitialized variable ..."
                 ((modifiedLocalVars isNil or:[(modifiedLocalVars includes:receiver name) not])
                  and:[hasPrimitiveCode not
+                 and:[ currentBlock isNil
                  and:[alreadyWarnedUninitializedVars isNil 
-                      or:[(alreadyWarnedUninitializedVars includes:receiver name) not]]]) 
+                      or:[(alreadyWarnedUninitializedVars includes:receiver name) not]]]]) 
                 ifTrue:[
                     ((#(at: at:put: basicAt: basicAt:put:) includes:sym) 
                      or:[(nil respondsTo:sym) not])ifTrue:[
@@ -7443,7 +7444,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.402 2003-07-16 19:10:19 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.403 2003-07-17 11:37:56 cg Exp $'
 ! !
 
 Parser initialize!