--- mule-cmds.el.~1.386.~	2009-12-17 08:25:38.000000000 +1100
+++ mule-cmds.el	2010-07-28 09:22:43.000000000 +1000
@@ -2033,8 +2033,8 @@
 
 (defsubst princ-list (&rest args)
   "Print all arguments with `princ', then print \"\\n\"."
-  (while args (princ (car args)) (setq args (cdr args)))
-  (princ "\n"))
+  (mapc 'princ args)
+  (terpri))
 
 (put 'describe-specified-language-support 'apropos-inhibit t)