Index: /trunk/ccl/level-1/l1-sysio.lisp
===================================================================
--- /trunk/ccl/level-1/l1-sysio.lisp	(revision 5413)
+++ /trunk/ccl/level-1/l1-sysio.lisp	(revision 5414)
@@ -140,5 +140,5 @@
          external-format)
         ((eq external-format :default)
-         (normalize-external-format domain nil))
+         (normalize-external-format domain *default-external-format*))
         ((lookup-character-encoding external-format)
          (normalize-external-format domain `(:character-encoding ,external-format)))