Index: /branches/working-0711/ccl/library/core-files.lisp
===================================================================
--- /branches/working-0711/ccl/library/core-files.lisp	(revision 13070)
+++ /branches/working-0711/ccl/library/core-files.lisp	(revision 13071)
@@ -586,10 +586,7 @@
                     (find-package (core-package-name obj)))
                (let ((v (%copy-uvector-from-core obj depth)))
-                 (format t "~&Copied #x~x, depth=~s symbolp=~s @~x"
-                         obj depth (symbolp v) (%fixnum-address-of v))
                  (when (and (symbolp v) (<= depth 1))
                    ;; Need to fix up the package slot else it's not useful
                    (let ((pp (%svref (symptr->symvector v) target::symbol.package-predicate-cell)))
-                     (format t "~&pp = ~x" pp)
                      (when (unresolved-address-p pp)
                        (setq pp (copy-from-core pp :depth 1)))