--- a/Parser.st	Sun Aug 27 17:17:14 2000 +0200
+++ b/Parser.st	Wed Aug 30 12:14:36 2000 +0200
@@ -2460,41 +2460,42 @@
                     names add:methodArgName.
                 ]
             ].
-
-            instVarNames := OrderedCollection new.
-            self classesInstVarNames asSortedCollection do:[:instVarName |
-                (instVarNames includes:instVarName) ifFalse:[
-                    instVarNames add:instVarName.
-                ]
-            ].
-
-            instVarNames size > 0 ifTrue:[
-                (classToCompileFor notNil and:[classToCompileFor isMeta]) ifTrue:[
-                    names add:'---- class instance variables ----'.
-                ] ifFalse:[
-                    names add:'---- instance variables ----'.
-                ].
-                instVarNames do:[:instVarName |
-                    (names includes:instVarName) ifFalse:[
-                        names add:instVarName.
+            classToCompileFor notNil ifTrue:[
+                instVarNames := OrderedCollection new.
+                self classesInstVarNames asSortedCollection do:[:instVarName |
+                    (instVarNames includes:instVarName) ifFalse:[
+                        instVarNames add:instVarName.
                     ]
-                ]
-            ].
-
-            classVarNames := OrderedCollection new.
-            self classesClassVarNames asSortedCollection do:[:classVarName |
-                (classVarNames includes:classVarName) ifFalse:[
-                    classVarNames add:classVarName.
-                ]
-            ].
-
-            classVarNames size > 0 ifTrue:[
-                names add:'---- class variables ----'.
-                classVarNames do:[:classVarName |
-                    (names includes:classVarName) ifFalse:[
-                        names add:classVarName.
+                ].
+
+                instVarNames size > 0 ifTrue:[
+                    (classToCompileFor notNil and:[classToCompileFor isMeta]) ifTrue:[
+                        names add:'---- class instance variables ----'.
+                    ] ifFalse:[
+                        names add:'---- instance variables ----'.
+                    ].
+                    instVarNames do:[:instVarName |
+                        (names includes:instVarName) ifFalse:[
+                            names add:instVarName.
+                        ]
                     ]
-                ]
+                ].
+
+                classVarNames := OrderedCollection new.
+                self classesClassVarNames asSortedCollection do:[:classVarName |
+                    (classVarNames includes:classVarName) ifFalse:[
+                        classVarNames add:classVarName.
+                    ]
+                ].
+
+                classVarNames size > 0 ifTrue:[
+                    names add:'---- class variables ----'.
+                    classVarNames do:[:classVarName |
+                        (names includes:classVarName) ifFalse:[
+                            names add:classVarName.
+                        ]
+                    ]
+                ].
             ].
         ].
 
@@ -5581,6 +5582,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.258 2000-08-27 15:17:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.259 2000-08-30 10:14:36 cg Exp $'
 ! !
 Parser initialize!