diff --git a/Iceberg/IceWorkingCopy.class.st b/Iceberg/IceWorkingCopy.class.st
index b1e6efe465..be188eb427 100644
--- a/Iceberg/IceWorkingCopy.class.st
+++ b/Iceberg/IceWorkingCopy.class.st
@@ -729,7 +729,7 @@ IceWorkingCopy >> snapshotFor: package [
 IceWorkingCopy >> snapshotForPackage: aPackage [ 
 	
 	^ aPackage isLoaded
-		ifTrue: [ (MCPackage named: aPackage name) basicSnapshot ]
+		ifTrue: [ (MCPackage named: aPackage name) snapshot ]
 		ifFalse: [ self referenceCommit snapshotForPackage: aPackage ]
 ]
 
diff --git a/Iceberg/MCPackage.extension.st b/Iceberg/MCPackage.extension.st
deleted file mode 100644
index 4f6709bb27..0000000000
--- a/Iceberg/MCPackage.extension.st
+++ /dev/null
@@ -1,20 +0,0 @@
-Extension { #name : #MCPackage }
-
-{ #category : #'*Iceberg' }
-MCPackage >> basicSnapshot [
-	| rPackageSet definitions categories |
-	rPackageSet := self packageSet.
-	definitions := OrderedCollection new.
-	categories := rPackageSet categoryNames asArray.
-	categories isEmpty 
-		ifFalse: [ definitions add: (MCOrganizationDefinition categories: categories) ].
-		
-	rPackageSet methods 
-		do: [:ea | definitions add: ea asMCMethodDefinition].
-		
-	rPackageSet definedClasses 
-		do: [:ea | definitions addAll: ea classDefinitions].
-		
-	^ MCSnapshot fromDefinitions: definitions
-
-]