--- a/ClassPrimitiveVariablesChange.st	Wed Apr 20 12:20:45 2011 +0200
+++ b/ClassPrimitiveVariablesChange.st	Wed Apr 20 12:20:48 2011 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic3' }"
 
 ClassPrimitiveChange subclass:#ClassPrimitiveVariablesChange
@@ -45,6 +44,26 @@
 "
 ! !
 
+!ClassPrimitiveVariablesChange methodsFor:'applying'!
+
+apply
+    "apply the change"
+
+    |class|
+
+    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 primitiveVariables:(self source)
+    ].
+
+    "Created: / 20-04-2011 / 11:52:47 / cg"
+! !
+
 !ClassPrimitiveVariablesChange methodsFor:'comparing'!
 
 isForSameAs:changeB
@@ -78,5 +97,9 @@
 !ClassPrimitiveVariablesChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveVariablesChange.st,v 1.9 2000-08-31 10:01:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveVariablesChange.st,v 1.10 2011-04-20 10:20:48 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveVariablesChange.st,v 1.10 2011-04-20 10:20:48 cg Exp $'
 ! !