--- a/Parser.st	Mon Oct 30 16:54:38 1995 +0100
+++ b/Parser.st	Mon Oct 30 20:16:20 1995 +0100
@@ -42,7 +42,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.52 1995-10-24 15:55:09 cg Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.53 1995-10-30 19:16:20 cg Exp $
 '!
 
 !Parser class methodsFor:'documentation'!
@@ -63,7 +63,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.52 1995-10-24 15:55:09 cg Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.53 1995-10-30 19:16:20 cg Exp $
 "
 !
 
@@ -1247,7 +1247,7 @@
      corrected. If not corrected, only one warning is made per undefined
      variable."
 
-    |doCorrect msg idx|
+    |doCorrect msg idx hasSourceInfoStripped|
 
     "
      alredy warned about this one ?
@@ -1259,7 +1259,14 @@
 	].
     ].
 
-   (requestor isNil or:[requestor isStream]) ifTrue:[
+"/    (classToCompileFor notNil 
+"/    and:[classToCompileFor superclass notNil
+"/    and:[classToCompileFor superclass instanceVariableString isNil]]) ifTrue:[
+"/	self showErrorMessage:'Error: no source information (instvar names)' position:pos1.
+"/	^ false
+"/    ].
+
+    (requestor isNil or:[requestor isStream]) ifTrue:[
 	aName first isUppercase ifFalse:[
 	    self showErrorMessage:('Error: ' , aName , ' is undefined') position:pos1.
 	].