Index: /trunk/ccl/level-1/l1-streams.lisp
===================================================================
--- /trunk/ccl/level-1/l1-streams.lisp	(revision 6254)
+++ /trunk/ccl/level-1/l1-streams.lisp	(revision 6255)
@@ -3083,5 +3083,5 @@
       (setup-ioblock-output ioblock character-p element-type sharing encoding line-termination))
     (when element-type
-      (setf (ioblock-element-type ioblock) element-type))
+      (setf (ioblock-element-type ioblock) (if character-p 'character element-type)))
 ;    (when element-shift
 ;      (setf (ioblock-element-shift ioblock) element-shift))
@@ -3537,7 +3537,8 @@
     (gvector :basic-stream class 0 nil nil)))
 
-(defmethod initialize-basic-stream ((s basic-stream) &key element-type &allow-other-keys)
-  (setf (getf (basic-stream.info s) :element-type) element-type))
-
+
+(defmethod initialize-basic-stream ((s basic-stream) &key &allow-other-keys)
+  )
+  
 (defmethod initialize-basic-stream :after  ((s basic-input-stream) &key &allow-other-keys)
   (setf (basic-stream.flags s)
@@ -4587,6 +4588,5 @@
 
 (defclass buffered-stream-mixin ()
-  ((ioblock :reader %stream-ioblock :writer (setf stream-ioblock) :initform nil)
-   (element-type :initarg :element-type :reader %buffered-stream-element-type)))
+  ((ioblock :reader %stream-ioblock :writer (setf stream-ioblock) :initform nil)))
 
 (defmethod open-stream-p ((s buffered-stream-mixin))
@@ -4612,8 +4612,8 @@
   
 (defmethod stream-element-type ((s buffered-stream-mixin))
-  (%buffered-stream-element-type s))
+  (ioblock-element-type (stream-ioblock s t)))
 
 (defmethod stream-element-type ((s basic-stream))
-  (getf (basic-stream.info s) :element-type))
+  (ioblock-element-type (basic-stream-ioblock s)))