Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 5412)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 5413)
@@ -301,9 +301,9 @@
 
 (defmethod (setf stream-external-format) (new (s t))
-  (check-type new 'external-format)
+  (normalize-external-format (stream-domain s) new)
   (report-bad-arg s 'stream))
 
 (defmethod (setf stream-external-format) (new (s t))
-  (check-type new 'external-format)
+  (normalize-external-format (stream-domain s) new)
   (stream-external-format s))
 
@@ -4089,4 +4089,7 @@
     (unless (open-stream-p s)  (format out " ~s" :closed))))
 
+
+                 
+
 (defstruct (string-stream-ioblock (:include ioblock))
   string)