--- a/ChangeSet.st	Tue Oct 23 15:58:58 2012 +0200
+++ b/ChangeSet.st	Fri Oct 26 13:24:28 2012 +0200
@@ -986,11 +986,14 @@
 addMethodPackageChange:aMethod package:newPackage in:aClass
     "add a methodPackage change to the receiver"
 
-    |newChange|
+    |newChange selector|
+
+    selector := (aClass selectorAtMethod:aMethod).
+    selector isNil ifTrue:[^ self].
 
     newChange := MethodPackageChange 
                         class:aClass
-                        selector:(aClass selectorAtMethod:aMethod)
+                        selector:selector
                         package:newPackage.
     self rememberChangedClass:aClass.
     self addChange:newChange
@@ -4100,11 +4103,11 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.201 2012-10-19 15:00:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.202 2012-10-26 11:24:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.201 2012-10-19 15:00:12 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.202 2012-10-26 11:24:28 cg Exp $'
 !
 
 version_SVN