--- a/ClassDescription.st	Tue Feb 12 12:34:40 2002 +0100
+++ b/ClassDescription.st	Tue Feb 12 19:36:50 2002 +0100
@@ -1404,9 +1404,9 @@
      if successful update the method dictionary.
      Returns the new method or nil (on failure)."
 
-    ^ self compilerClass 
-	compile:code 
-	forClass:self
+    ^ self theNonMetaclass compilerClass 
+        compile:code 
+        forClass:self
 
     "Modified: 13.12.1995 / 10:56:00 / cg"
     "Created: 1.4.1997 / 23:43:51 / stefan"
@@ -1432,17 +1432,17 @@
      Returns the new method or nil (on failure)."
 
     logged ifFalse:[
-	self withoutUpdatingChangesDo:[
-	    ^ self compilerClass 
-		compile:code 
-		forClass:self 
-		inCategory:category
-	]
+        self withoutUpdatingChangesDo:[
+            ^ self theNonMetaclass compilerClass 
+                compile:code 
+                forClass:self 
+                inCategory:category
+        ]
     ] ifTrue:[
-	^ self compilerClass 
-	    compile:code 
-	    forClass:self 
-	    inCategory:category
+        ^ self theNonMetaclass compilerClass 
+            compile:code 
+            forClass:self 
+            inCategory:category
     ].
 
     "Modified: 13.12.1995 / 11:02:34 / cg"
@@ -1455,11 +1455,11 @@
      Install the method under the category, cat.
      Returns the new method or nil (on failure)."
 
-    ^ self compilerClass 
-	compile:code 
-	forClass:self
-	inCategory:cat 
-	notifying:requestor
+    ^ self theNonMetaclass compilerClass 
+        compile:code 
+        forClass:self
+        inCategory:cat 
+        notifying:requestor
 
     "Modified: / 13.12.1995 / 11:02:40 / cg"
     "Created: / 18.6.1998 / 15:52:15 / cg"
@@ -1470,10 +1470,10 @@
      requestor, anObject with the error reason.
      Returns the new method or nil (on failure)."
 
-    ^ self compilerClass 
-	compile:code 
-	forClass:self 
-	notifying:requestor
+    ^ self theNonMetaclass compilerClass 
+        compile:code 
+        forClass:self 
+        notifying:requestor
 
     "Modified: 13.12.1995 / 11:02:40 / cg"
     "Created: 1.4.1997 / 23:43:43 / stefan"
@@ -1486,12 +1486,12 @@
 
     |rslt|
 
-    rslt := self compilerClass 
-	compile:code 
-	forClass:self 
-	notifying:requestor.
+    rslt := self theNonMetaclass compilerClass 
+        compile:code 
+        forClass:self 
+        notifying:requestor.
     (rslt isNil or:[rslt == #Error]) ifTrue:[
-	^ failBlock value
+        ^ failBlock value
     ].
     ^ rslt
 
@@ -1529,7 +1529,7 @@
         oldPackage := oldMethod package.
         cat := oldMethod category.
         code := self sourceCodeAt:aSelector.
-        compiler := self compilerClass.
+        compiler := self theNonMetaclass compilerClass.
 
         Class methodRedefinitionSignal answer:#keep do:[
             (compiler respondsTo:#compile:forClass:inCategory:)
@@ -3952,6 +3952,6 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.129 2001-11-27 17:59:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.130 2002-02-12 18:36:50 james Exp $'
 ! !
 ClassDescription initialize!