--- a/ClassClassVariableChange.st	Fri Nov 25 17:45:06 2011 +0100
+++ b/ClassClassVariableChange.st	Fri Nov 25 17:45:09 2011 +0100
@@ -64,8 +64,16 @@
     aStream nextPutAll:self className; nextPutAll:' addClassVarName: ' , variableName storeString
 ! !
 
+!ClassClassVariableChange methodsFor:'visiting'!
+
+acceptChangeVisitor:aVisitor
+    ^ aVisitor visitClassVariableChange:self.
+
+    "Created: / 25-11-2011 / 17:12:53 / cg"
+! !
+
 !ClassClassVariableChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassClassVariableChange.st,v 1.3 2009-09-24 08:41:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassClassVariableChange.st,v 1.4 2011-11-25 16:45:09 cg Exp $'
 ! !