--- a/MCPackage.st	Fri May 31 01:35:19 2013 +0200
+++ b/MCPackage.st	Fri May 31 01:35:26 2013 +0200
@@ -47,25 +47,26 @@
 !MCPackage methodsFor:'operations'!
 
 snapshot
-	| packageInfo definitions categories |
-	packageInfo := self packageInfo.
-	definitions := OrderedCollection new.
-	categories := packageInfo systemCategories.
-	categories isEmpty ifFalse: [ definitions add: (MCOrganizationDefinition categories: categories) ].
-	packageInfo methods do: [:ea | definitions add: ea asMethodDefinition] displayingProgress: 'Snapshotting methods...'.
-	(packageInfo respondsTo: #overriddenMethods) ifTrue:
-		[packageInfo overriddenMethods
-			do: [:ea | definitions add:
-					(packageInfo changeRecordForOverriddenMethod: ea) asMethodDefinition]
-			displayingProgress: 'Searching for overrides...'].
-	packageInfo classes do: [:ea | definitions addAll: ea classDefinitions] displayingProgress: 'Snapshotting classes...'.
-	(packageInfo respondsTo: #hasPreamble) ifTrue: [
-		packageInfo hasPreamble ifTrue: [definitions add: (MCPreambleDefinition from: packageInfo)].
-		packageInfo hasPostscript ifTrue: [definitions add: (MCPostscriptDefinition from: packageInfo)].
-		packageInfo hasPreambleOfRemoval ifTrue: [definitions add: (MCRemovalPreambleDefinition from: packageInfo)].
-		packageInfo hasPostscriptOfRemoval ifTrue: [definitions add: (MCRemovalPostscriptDefinition from: packageInfo)]]. 
-	^ MCSnapshot fromDefinitions: definitions
+        | packageInfo definitions categories |
+        packageInfo := self packageInfo.
+        definitions := OrderedCollection new.
+        categories := packageInfo systemCategories.
+        categories isEmpty ifFalse: [ definitions add: (MCOrganizationDefinition categories: categories) ].
+        packageInfo methods do: [:ea | definitions add: ea asMethodDefinition] displayingProgress: 'Snapshotting methods...'.
+        (packageInfo respondsTo: #overriddenMethods) ifTrue:
+                [packageInfo overriddenMethods
+                        do: [:ea | definitions add:
+                                        (packageInfo changeRecordForOverriddenMethod: ea) asMethodDefinition]
+                        displayingProgress: 'Searching for overrides...'].
+        packageInfo classes do: [:ea | definitions addAll: ea classDefinitions] displayingProgress: 'Snapshotting classes...'.
+        (packageInfo respondsTo: #hasPreamble) ifTrue: [
+                packageInfo hasPreamble ifTrue: [definitions add: (MCPreambleDefinition from: packageInfo)].
+                packageInfo hasPostscript ifTrue: [definitions add: (MCPostscriptDefinition from: packageInfo)].
+                packageInfo hasPreambleOfRemoval ifTrue: [definitions add: (MCRemovalPreambleDefinition from: packageInfo)].
+                packageInfo hasPostscriptOfRemoval ifTrue: [definitions add: (MCRemovalPostscriptDefinition from: packageInfo)]]. 
+        ^ (MCSnapshot fromDefinitions: definitions) package: self; yourself
 
+    "Modified: / 31-05-2013 / 00:09:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 unload
@@ -121,14 +122,14 @@
 !MCPackage class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.13 2013-05-29 11:46:55 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.14 2013-05-30 23:35:26 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.13 2013-05-29 11:46:55 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCPackage.st,v 1.14 2013-05-30 23:35:26 vrany Exp $'
 !
 
 version_SVN
-    ^ '$Id: MCPackage.st,v 1.13 2013-05-29 11:46:55 vrany Exp $'
+    ^ '$Id: MCPackage.st,v 1.14 2013-05-30 23:35:26 vrany Exp $'
 ! !