--- a/ClassCategoryReader.st	Sat Feb 11 17:42:24 1995 +0100
+++ b/ClassCategoryReader.st	Wed Feb 15 11:22:05 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.12 1995-02-02 12:20:48 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.13 1995-02-15 10:21:24 claus Exp $
 '!
 
 !ClassCategoryReader class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.12 1995-02-02 12:20:48 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.13 1995-02-15 10:21:24 claus Exp $
 "
 !
 
@@ -131,12 +131,13 @@
 		    ignore := true
 		].
 		ignore ifFalse:[
-		    method := myClass compiler compile:aString
-					      forClass:myClass
-					    inCategory:myCategory
-					     notifying:requestor
-					       install:true
-					    skipIfSame:true.
+		    method := myClass compilerClass
+				 compile:aString
+				 forClass:myClass
+				 inCategory:myCategory
+				 notifying:requestor
+				 install:true
+				 skipIfSame:true.
 		    privacy notNil ifTrue:[
 			privacy == #private ifTrue:[
 			    method setToPrivate