--- a/ChangeSet.st	Tue Feb 20 10:40:22 2007 +0100
+++ b/ChangeSet.st	Thu Feb 22 18:05:55 2007 +0100
@@ -84,7 +84,7 @@
      It is useful in conjunction with the other utility methods,
      for example, when building patchLists, diffSets, comparing etc."
 
-    |changeSet s|
+    |changeSet s changeObject|
 
     s := ReadWriteStream on:''.
     aClass fileOutOn:s.
@@ -94,10 +94,16 @@
     "/ fetch the real package info...
     changeSet do:[:eachChange |
         eachChange isMethodChange ifTrue:[
-            eachChange package:(eachChange changeMethod package)
+            changeObject := eachChange changeMethod.
+            changeObject notNil ifTrue:[
+                eachChange package:changeObject package
+            ].
         ] ifFalse:[
             eachChange isClassChange ifTrue:[
-                eachChange package:(eachChange changeClass package)
+                changeObject := eachChange changeClass.
+                changeObject notNil ifTrue:[
+                    eachChange package:changeObject package
+                ].
             ].
         ].
     ].
@@ -2285,5 +2291,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.148 2006-12-01 11:23:59 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.149 2007-02-22 17:05:55 stefan Exp $'
 ! !