--- a/ClassPrimitiveFunctionsChange.st	Tue Jun 28 23:00:07 2011 +0200
+++ b/ClassPrimitiveFunctionsChange.st	Tue Jun 28 23:00:09 2011 +0200
@@ -46,22 +46,12 @@
 
 !ClassPrimitiveFunctionsChange methodsFor:'applying'!
 
-apply
+privateApply
     "apply the change"
 
-    |class|
+    self changeClass primitiveFunctions:(self source)
 
-    class := self changeClass.
-    class isNil ifTrue:[
-        self error:('Cannot apply change for missing class: ' , className) mayProceed:true.
-        ^ self
-    ].
-    class autoload.         "Most changes cannot be applied to unloaded classes"
-    Class nameSpaceQuerySignal answer:self nameSpace do:[
-        class primitiveFunctions:(self source)
-    ].
-
-    "Created: / 20-04-2011 / 11:52:47 / cg"
+    "Created: / 28-06-2011 / 22:59:30 / cg"
 ! !
 
 !ClassPrimitiveFunctionsChange methodsFor:'comparing'!
@@ -97,9 +87,9 @@
 !ClassPrimitiveFunctionsChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveFunctionsChange.st,v 1.10 2011-04-20 10:20:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveFunctionsChange.st,v 1.11 2011-06-28 21:00:09 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveFunctionsChange.st,v 1.10 2011-04-20 10:20:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveFunctionsChange.st,v 1.11 2011-06-28 21:00:09 cg Exp $'
 ! !