--- a/ChangeSet.st	Thu Mar 15 19:55:46 2012 +0000
+++ b/ChangeSet.st	Fri Mar 16 16:51:41 2012 +0000
@@ -291,19 +291,21 @@
     packageExtensions := ProjectDefinition searchForExtensionsWithProject: package.
     changeSet := self forExistingMethods: packageExtensions.
     packageClasses do:
-	[:cls|
-	(ignoreAutoloaded not and:[cls isLoaded not])
-	    ifTrue:[cls autoload].
-	cls isLoaded
-	    ifTrue:
-		[changeSet addAll:
-		    (self
-			forExistingClass:cls
-			withExtensions:false
-			extensionsOnly:false)]].
+        [:cls|
+        (ignoreAutoloaded not and:[cls isLoaded not])
+            ifTrue:[cls autoload].
+        cls isLoaded
+            ifTrue:
+                [changeSet addAll:
+                    (self
+                        forExistingClass:cls
+                        withExtensions:false
+                        extensionsOnly:false)]].
+    changeSet name: 'Package ' , package.
     ^changeSet
 
     "Created: / 12-08-2009 / 14:22:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 16-03-2012 / 15:37:10 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fromDiffSet:aDiffSet
@@ -342,6 +344,7 @@
         [:each|
         each suffix = 'st' ifTrue:
             [cs addAll: (self fromFileOrDirectory: each)]].
+    cs name: aStringOfFilename asFilename asAbsoluteFilename pathName.
     ^cs
 
 
@@ -378,8 +381,9 @@
 !
 
 fromFile:aFilename
-    |mime stream|
-
+    |mime stream nm|
+
+    nm := aFilename asFilename asAbsoluteFilename pathName.
     mime := MIMETypes mimeTypeForFilename:aFilename.
     mime isNil ifTrue:[
         mime := aFilename asFilename mimeTypeOfContents.
@@ -391,16 +395,16 @@
     [
         stream := aFilename asFilename readStream.
         mime = 'text/xml' ifTrue:[
-            ^ self fromXMLStream:stream.
+            ^ (self fromXMLStream:stream) name: nm; yourself.
         ].
         mime = 'application/x-smalltalk-source-sif' ifTrue:[
-            ^ self fromSIFStream:stream.
+            ^ (self fromSIFStream:stream) name: nm; yourself
         ].
         mime = 'application/x-smalltalk-dolphin-package' ifTrue:[
-            ^ self fromDolphinPACStream:stream.
+            ^ (self fromDolphinPACStream:stream) name: nm; yourself
         ].            
         stream := EncodedStream decodedStreamFor:stream.
-        ^ self fromStream:stream.
+        ^ (self fromStream:stream) name: nm; yourself
     ] ensure:[
         stream notNil ifTrue:[stream close].
     ].
@@ -410,8 +414,9 @@
      ChangeSet fromFile:('patches')
     "
 
-    "Created: / 16.2.1998 / 12:19:34 / cg"
-    "Modified: / 14.12.1999 / 15:23:16 / cg"
+    "Created: / 16-02-1998 / 12:19:34 / cg"
+    "Modified: / 14-12-1999 / 15:23:16 / cg"
+    "Modified: / 16-03-2012 / 15:46:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 fromFileOrDirectory: fileOrDirectory
@@ -3533,5 +3538,5 @@
 !
 
 version_SVN
-    ^ '$Id: ChangeSet.st 1894 2012-03-15 19:55:46Z vranyj1 $'
+    ^ '$Id: ChangeSet.st 1895 2012-03-16 16:51:41Z vranyj1 $'
 ! !