Index: /trunk/ccl/level-1/l1-unicode.lisp
===================================================================
--- /trunk/ccl/level-1/l1-unicode.lisp	(revision 5202)
+++ /trunk/ccl/level-1/l1-unicode.lisp	(revision 5203)
@@ -24,5 +24,6 @@
 
 (defun get-character-encoding (name)
-  (gethash name *character-encodings*))
+  (or (gethash name *character-encodings*)
+      (error "Unknown character encoding: ~s." name)))
 
 (defun (setf get-character-encoding) (new name)
@@ -79,4 +80,8 @@
   )
 
+
+(defmethod print-object ((ce character-encoding) stream)
+  (print-unreadable-object (ce stream :type t :identity t)
+    (format stream "~a" (character-encoding-name ce))))
 
 ;;; N.B.  (ccl:nfunction <name> (lambda (...) ...)) is just  like