--- a/extensions.st	Fri Sep 02 22:20:43 2022 +0100
+++ b/extensions.st	Tue Sep 20 17:58:07 2022 +0100
@@ -27,6 +27,25 @@
 
 !AutomagicSourcePorter methodsFor:'porting-monticello'!
 
+visitClassDefinition: anMCClassDefinition
+    anMCClassDefinition className: (klassMap at: anMCClassDefinition className ifAbsent: [ anMCClassDefinition className ]).
+    anMCClassDefinition superclassName: (klassMap at: anMCClassDefinition superclassName ifAbsent: [ anMCClassDefinition superclassName ]).
+    anMCClassDefinition variables do: [:variable | 
+        variable isPoolImport ifTrue: [ 
+            variable name: (klassMap at: variable name ifAbsent: [ variable name ]).
+        ].
+    ].
+
+    "Created: / 20-09-2022 / 16:59:54 / Jan Vrany <jan.vrany@labware.com>"
+! !
+
+!AutomagicSourcePorter methodsFor:'porting-monticello'!
+
+visitMetaclassDefinition: aMCClassDefinition
+! !
+
+!AutomagicSourcePorter methodsFor:'porting-monticello'!
+
 visitMethodDefinition: anMCMethodDefinition
     source := anMCMethodDefinition source.
     klass := anMCMethodDefinition actualClass.