--- a/ChangeSet.st	Fri Sep 16 12:06:18 2011 +0200
+++ b/ChangeSet.st	Sun Sep 18 13:06:59 2011 +0200
@@ -218,11 +218,15 @@
 
     changeSet := self new.
     aCollectionOfMethods do:[:eachMethod | 
-        |change|
-
+        |change source|
+
+        source := eachMethod source.
+        source isNil ifTrue:[
+            Transcript showCR:'oops - no source for ',eachMethod whoString.
+        ].
         change := MethodDefinitionChange new.
         eachMethod mclass notNil ifTrue:[ change className:eachMethod mclass name ].
-        change source:eachMethod source.
+        source notNil ifTrue:[ change source:source ].
         change selector:eachMethod selector.
         change package:(eachMethod package).
         change category:(eachMethod category).
@@ -251,7 +255,7 @@
                                          with:(Behavior compiledMethodAt:#compiledMethodAt:) )
     "
 
-    "Modified: / 13-10-2006 / 00:33:15 / cg"
+    "Modified: / 17-09-2011 / 10:26:03 / cg"
 !
 
 forPackage: package
@@ -1035,7 +1039,6 @@
     "Modified: / 14.11.2001 / 13:36:06 / cg"
 ! !
 
-
 !ChangeSet methodsFor:'fileOut'!
 
 fileOutAs: aStringOrFilename
@@ -2989,6 +2992,6 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.182 2011-09-08 02:45:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.183 2011-09-18 11:06:59 cg Exp $'
 
 ! !