Index: /branches/working-0711/ccl/level-1/l1-streams.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-streams.lisp	(revision 12970)
+++ /branches/working-0711/ccl/level-1/l1-streams.lisp	(revision 12971)
@@ -3426,5 +3426,5 @@
 
 (defmethod stream-external-format ((s character-stream))
-  (make-external-format :character-encoding #+big-endian-target :utf32-be #+little-endian-target :utf32-le :line-termination :unix))
+  (make-external-format :character-encoding #+big-endian-target :utf-32be #+little-endian-target :utf-32le :line-termination :unix))