--- a/MethodChange.st	Sat Feb 07 16:38:51 2015 +0100
+++ b/MethodChange.st	Mon Feb 09 11:09:58 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic3' }"
 
+"{ NameSpace: Smalltalk }"
+
 ClassChange subclass:#MethodChange
 	instanceVariableNames:'selector methodCategory privacy previousVersion'
 	classVariableNames:'LastReplacementClass'
@@ -263,7 +265,8 @@
 apply
     "apply the change"
 
-    |class replacementClassName suggestion oldMethodOrNil oldPackage newPackage defClass|
+    |class replacementClassName suggestion oldMethodOrNil oldPackage 
+     newPackage newMethod defClass|
 
     class := self changeClass.
     class isNil ifTrue:[
@@ -328,7 +331,10 @@
         ].
     ].
 
-    (class compile:source classified:methodCategory logged:true) package: newPackage.
+    newMethod := class compile:source classified:methodCategory logged:true.
+    newMethod notNil ifTrue:[
+        newMethod package: newPackage.
+    ].
 
     "Modified: / 07-09-2011 / 21:09:19 / cg"
     "Modified: / 29-03-2014 / 23:29:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -529,14 +535,14 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.78 2014-05-14 08:50:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.79 2015-02-09 10:09:58 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.78 2014-05-14 08:50:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.79 2015-02-09 10:09:58 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: MethodChange.st,v 1.78 2014-05-14 08:50:44 cg Exp $'
+    ^ '$Id: MethodChange.st,v 1.79 2015-02-09 10:09:58 cg Exp $'
 ! !