--- a/Parser.st	Fri May 19 05:57:50 1995 +0200
+++ b/Parser.st	Tue Jun 06 06:04:36 1995 +0200
@@ -41,7 +41,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.42 1995-05-18 23:26:49 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.43 1995-06-06 04:04:19 claus Exp $
 '!
 
 !Parser class methodsFor:'documentation'!
@@ -62,7 +62,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.42 1995-05-18 23:26:49 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.43 1995-06-06 04:04:19 claus Exp $
 "
 !
 
@@ -1203,7 +1203,7 @@
      corrected. If not corrected, only one warning is made per undefined
      variable."
 
-    |doCorrect|
+    |doCorrect msg idx|
 
     "
      alredy warned about this one ?
@@ -1226,7 +1226,17 @@
 	 it is supposed to raise abort or return true/false.
 	 True return means that correction is wanted.
 	"
-	doCorrect := self correctableError:('Warning: ' , aName , ' is undefined') position:pos1 to:pos2
+	msg := 'Warning: ' , aName , ' is undefined'.
+	classToCompileFor notNil ifTrue:[
+	    "is it an instance-variable marked inaccessable ?"
+
+	    idx := (self instVarNames) indexOf:(aName , '*') startingAt:1.
+	    idx ~~ 0 ifTrue:[
+		msg := 'Warning: ' , aName , ' is a hidden instvar (not accessable from ST-code)'.
+	    ]
+	].
+
+	doCorrect := self correctableError:msg position:pos1 to:pos2
     ].
 
     doCorrect ifFalse:[