--- a/DataSetBuilder.st	Thu Jul 11 15:50:59 2002 +0200
+++ b/DataSetBuilder.st	Thu Jul 11 23:04:33 2002 +0200
@@ -2237,7 +2237,9 @@
 compile:aCode forClass:aClass inCategory:aCategory
     "compile method for class in a category"
 
-    ByteCodeCompiler compile:aCode withCRs forClass:aClass inCategory:aCategory
+    aClass 
+        compile:(aCode withCRs) 
+        classified:aCategory
 !
 
 generateBackgroundSelectorIn:aClass