--- a/Parser.st	Tue Jun 06 06:04:36 1995 +0200
+++ b/Parser.st	Tue Jun 27 04:17:58 1995 +0200
@@ -41,7 +41,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.43 1995-06-06 04:04:19 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.44 1995-06-27 02:17:35 claus Exp $
 '!
 
 !Parser class methodsFor:'documentation'!
@@ -62,7 +62,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.43 1995-06-06 04:04:19 claus Exp $
+$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.44 1995-06-27 02:17:35 claus Exp $
 "
 !
 
@@ -1069,7 +1069,7 @@
 	aClass := classToCompileFor.
 	classToCompileFor isMeta ifTrue:[
 	    className := aClass name.
-	    className := className copyTo:(className size - 5).
+	    className := className copyWithoutLast:5.
 	    aClass := Smalltalk at:(className asSymbol).
 	    aClass isNil ifTrue:[
 		aClass := classToCompileFor
@@ -2259,7 +2259,7 @@
     aClass := classToCompileFor.
     aClass isMeta ifTrue:[
 	className := aClass name.
-	className := className copyTo:(className size - 5).
+	className := className copyWithoutLast:5.
 	baseClass := Smalltalk at:(className asSymbol).
 	baseClass notNil ifTrue:[
 	    aClass := baseClass
@@ -2679,24 +2679,23 @@
 	    dists add:(aString spellAgainst: "levenshteinTo:"classVarName)
 	].
 
-false ifTrue:[
-	aClass := classToCompileFor.
-	aClass isMeta ifTrue:[
-	    className := aClass name.
-	    className := className copyTo:(className size - 5).
-	    baseClass := Smalltalk at:(className asSymbol).
-	    baseClass notNil ifTrue:[
-		aClass := baseClass
-	    ]
-	].
-	[aClass notNil] whileTrue:[
-	    (aClass classVarNames) do:[:classVarName |
-		names add:classVarName.
-		dists add:(aString spellAgainst: "levenshteinTo:"classVarName)
-	    ].
-	    aClass := aClass superclass
-	]
-].
+"/        aClass := classToCompileFor.
+"/        aClass isMeta ifTrue:[
+"/            className := aClass name.
+"/            className := className copyWithoutLast:5.
+"/            baseClass := Smalltalk at:(className asSymbol).
+"/            baseClass notNil ifTrue:[
+"/                aClass := baseClass
+"/            ]
+"/        ].
+"/        [aClass notNil] whileTrue:[
+"/            (aClass classVarNames) do:[:classVarName |
+"/                names add:classVarName.
+"/                dists add:(aString spellAgainst: "levenshteinTo:"classVarName)
+"/            ].
+"/            aClass := aClass superclass
+"/        ]
+
     ].
 
     "globals"