diff --git a/pcl/cmu-low.lisp b/pcl/cmu-low.lisp
index 46c7fd2b36247b902b0729346afb6c04bab0d069..959a5adf60876fd16947dbf1c9506c9e35b9ea33 100644
--- a/pcl/cmu-low.lisp
+++ b/pcl/cmu-low.lisp
@@ -29,6 +29,12 @@
 
 (in-package 'pcl)
 
+
+;;; Print the object addr in default printers.
+;;;
+(defun printing-random-thing-internal (thing stream)
+  (format stream "{~X}" (sys:%primitive c:make-fixnum thing)))
+
   ;;   
 ;;;;;; Cache No's
   ;;  
@@ -40,14 +46,13 @@
 	  (the fixnum mask)))
 
 
-
 (defun function-arglist (fcn)
   "Returns the argument list of a compiled function, if possible."
   (cond ((symbolp fcn)
 	 (when (fboundp fcn)
 	   (function-arglist (symbol-function fcn))))
 	((eval:interpreted-function-p fcn)
-	 (eval:interpreted-function-name fcn))
+	 (eval:interpreted-function-arglist fcn))
 	((functionp fcn)
 	 (let ((lambda-expr (function-lambda-expression fcn)))
 	   (if lambda-expr
@@ -71,11 +76,6 @@
 	 fcn)
 	(t
 	 (let ((header (kernel:%closure-function fcn)))
-	   (system:%primitive c::set-function-name header
-			      (if (symbolp new-name)
-				  new-name
-				  (let ((*package* *the-pcl-package*)
-					(*print-case* :upcase)
-					(*print-gensym* 't))
-				    (prin1-to-string new-name)))))
+	   (system:%primitive c::set-function-name header new-name))
 	 fcn)))
+