--- a/Parser.st	Mon Jun 17 16:13:49 1996 +0200
+++ b/Parser.st	Thu Jun 20 00:29:27 1996 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+'From Smalltalk/X, Version:2.10.9 on 18-jun-1996 at 15:31:11'                   !
+
 Scanner subclass:#Parser
 	instanceVariableNames:'classToCompileFor selfValue contextToEvaluateIn selector
 		methodArgs methodArgNames methodVars methodVarNames tree
@@ -2333,12 +2335,12 @@
 
     aClass := classToCompileFor.
     aClass isMeta ifTrue:[
-	className := aClass name.
-	className := className copyWithoutLast:5.
-	baseClass := Smalltalk at:(className asSymbol).
-	baseClass notNil ifTrue:[
-	    aClass := baseClass
-	]
+        className := aClass name.
+        className := className copyWithoutLast:6.
+        baseClass := Smalltalk at:(className asSymbol).
+        baseClass notNil ifTrue:[
+            aClass := baseClass
+        ]
     ].
     ^ aClass whichClassDefinesClassVar:aString
 "/    [aClass notNil] whileTrue:[
@@ -2346,6 +2348,8 @@
 "/        aClass := aClass superclass
 "/    ].
 "/    ^ nil
+
+    "Modified: 17.6.1996 / 17:18:41 / stefan"
 !
 
 keywordExpression
@@ -3276,18 +3280,20 @@
     |aClass className|
 
     PrevClassVarNames isNil ifTrue:[
-	aClass := classToCompileFor.
-	classToCompileFor isMeta ifTrue:[
-	    className := aClass name.
-	    className := className copyWithoutLast:5.
-	    aClass := Smalltalk at:(className asSymbol).
-	    aClass isNil ifTrue:[
-		aClass := classToCompileFor
-	    ]
-	].
-	PrevClassVarNames := aClass allClassVarNames
+        aClass := classToCompileFor.
+        classToCompileFor isMeta ifTrue:[
+            className := aClass name.
+            className := className copyWithoutLast:6.
+            aClass := Smalltalk at:(className asSymbol).
+            aClass isNil ifTrue:[
+                aClass := classToCompileFor
+            ]
+        ].
+        PrevClassVarNames := aClass allClassVarNames
     ].
     ^ PrevClassVarNames
+
+    "Modified: 17.6.1996 / 17:15:53 / stefan"
 !
 
 hasNonOptionalPrimitiveCode
@@ -3499,6 +3505,6 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.80 1996-05-29 15:41:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.81 1996-06-19 22:29:27 stefan Exp $'
 ! !
 Parser initialize!