--- a/ClassCategoryReader.st	Mon Nov 08 03:29:58 1993 +0100
+++ b/ClassCategoryReader.st	Mon Nov 08 03:32:43 1993 +0100
@@ -24,7 +24,7 @@
 
 a helper class for fileIn - keeps track of class and category to filein for.
 
-$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.4 1993-10-13 02:11:16 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassCategoryReader.st,v 1.5 1993-11-08 02:29:30 claus Exp $
 written 89 by claus
 '!
 
@@ -62,12 +62,12 @@
             aString := aStream nextChunk.
             done := aString isNil or:[aString isEmpty].
             done ifFalse:[
-                method := Compiler compile:aString
-                                  forClass:myClass
-                                inCategory:myCategory
-                                 notifying:requestor
-                                   install:true
-                                skipIfSame:true
+                method := myClass compiler compile:aString
+                                          forClass:myClass
+                                        inCategory:myCategory
+                                         notifying:requestor
+                                           install:true
+                                        skipIfSame:true
             ]
         ]
     ]