--- a/Class.st	Sun Jan 05 20:01:03 1997 +0100
+++ b/Class.st	Tue Jan 07 12:02:05 1997 +0100
@@ -4401,12 +4401,10 @@
                 p := p , lib.
             ]
         ].
-        p notEmpty ifTrue:[
-"/            p := '(' , p , ')'.
-
-            package notNil ifTrue:[
-                (name , ': changing packageID to ''' , p , '''') infoPrintCR.
-            ].
+        (p notEmpty and:[p ~= package]) ifTrue:[
+"/            package notNil ifTrue:[
+"/                (name , ': changing packageID from ''' , package , ''' to ''' , p , '''') infoPrintCR.
+"/            ].
             package := p.
 
             self methodDictionary do:[:aMethod |
@@ -4424,7 +4422,7 @@
     "
 
     "Modified: 12.6.1996 / 11:49:31 / stefan"
-    "Modified: 15.10.1996 / 19:38:24 / cg"
+    "Modified: 7.1.1997 / 12:01:08 / cg"
 !
 
 sourceStream
@@ -4692,6 +4690,6 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.237 1997-01-05 19:01:03 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.238 1997-01-07 11:02:05 cg Exp $'
 ! !
 Class initialize!