Index: /trunk/source/level-1/l1-unicode.lisp
===================================================================
--- /trunk/source/level-1/l1-unicode.lisp	(revision 15252)
+++ /trunk/source/level-1/l1-unicode.lisp	(revision 15253)
@@ -161,5 +161,5 @@
          (encoding-name
           (character-encoding-name
-           (external-format-character-encoding (stream-external-format source)))))
+           (lookup-character-encoding (external-format-character-encoding (stream-external-format source))))))
     (signal (make-condition 'decoding-problem
                             :source source