--- a/Parser.st	Mon Jul 14 09:42:45 2003 +0200
+++ b/Parser.st	Wed Jul 16 21:10:19 2003 +0200
@@ -3015,8 +3015,9 @@
             ] ifFalse:[(receiver isMethodVariable and:[receiver token type isNil]) ifTrue:[
                 "if it is an uninitialized variable ..."
                 ((modifiedLocalVars isNil or:[(modifiedLocalVars includes:receiver name) not])
+                 and:[hasPrimitiveCode not
                  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:[
@@ -7442,7 +7443,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.401 2003-07-14 07:42:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.402 2003-07-16 19:10:19 cg Exp $'
 ! !
 
 Parser initialize!