--- a/Metaclass.st	Mon Jun 15 23:28:05 1998 +0200
+++ b/Metaclass.st	Tue Jun 16 13:10:08 1998 +0200
@@ -853,7 +853,7 @@
     ].
     pkg notNil ifTrue:[
         "/ newMetaclass package:pkg.
-        Transcript showCR:('set package of class: ' , newClass name , ' to ' , pkg printString).
+        "/ Transcript showCR:('set package of class: ' , newClass name , ' to ' , pkg printString).
         newClass package:pkg.
     ].
 
@@ -1395,7 +1395,7 @@
 
     "Created: / 26.5.1996 / 11:55:26 / cg"
     "Modified: / 18.6.1996 / 14:19:39 / stefan"
-    "Modified: / 15.6.1998 / 18:55:58 / cg"
+    "Modified: / 16.6.1998 / 13:09:37 / cg"
 !
 
 name:newName inEnvironment:aSystemDictionary
@@ -1948,6 +1948,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.124 1998-06-15 19:46:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.125 1998-06-16 11:10:08 cg Exp $'
 ! !
 Metaclass initialize!