--- a/ChangeSet.st	Wed May 30 12:13:24 2007 +0200
+++ b/ChangeSet.st	Wed May 30 12:13:50 2007 +0200
@@ -577,11 +577,14 @@
     changeSelectors isNil ifTrue:[
         selectors := IdentitySet new.
         self do:[:chg |
-            |cls|
+            |sel|
 
             chg notNil ifTrue:[
                 chg isMethodChange ifTrue:[
-                    selectors add:chg selector
+                    sel := chg selector.
+                    sel notNil ifTrue:[
+                        selectors add:sel
+                    ]
                 ]
             ]
         ].
@@ -592,6 +595,8 @@
     "
      ChangeSet current changeSelectors  
     "
+
+    "Modified: / 30-05-2007 / 12:12:32 / cg"
 !
 
 changedClasses
@@ -2291,5 +2296,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.149 2007-02-22 17:05:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.150 2007-05-30 10:13:50 cg Exp $'
 ! !