--- a/Method.st	Sun Jun 23 10:41:09 2019 +0200
+++ b/Method.st	Sun Jun 23 14:11:49 2019 +0200
@@ -738,13 +738,13 @@
     |cls oldPackage newPackage|
 
     newPackage := aSymbol.
-    aSymbol == PackageId noProjectID ifTrue:[
-        Transcript showCR:'warning: unassigning method from any package'.
-        "/ newPackage := nil
-    ].
-
-    package ~~ newPackage ifTrue:[
-        oldPackage := package.
+    oldPackage := package.
+    oldPackage ~~ newPackage ifTrue:[
+        newPackage == PackageId noProjectID ifTrue:[
+            Logger warning:'warning: unassigning method from previous package: ' with:oldPackage.
+            "/ newPackage := nil
+        ].
+
         "/ this is required, because otherwise I would no longer be able to
         "/ reconstruct my sourcecode (as the connection to the source-file is lost).
         self makeLocalStringSource.
@@ -773,6 +773,7 @@
     "Modified: / 23-11-2006 / 17:01:02 / cg"
     "Modified: / 27-01-2012 / 17:15:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified (comment): / 27-01-2012 / 21:22:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 23-06-2019 / 14:10:59 / Claus Gittinger"
 !
 
 setCategory:aStringOrSymbol
@@ -1541,6 +1542,7 @@
     "Modified (comment): / 21-11-2017 / 13:03:45 / cg"
 ! !
 
+
 !Method methodsFor:'copying'!
 
 copy