diff -Naur flexi-streams-0.5.1.orig/stream.lisp flexi-streams-0.5.1/stream.lisp
--- flexi-streams-0.5.1.orig/stream.lisp	2006-01-25 14:37:42.000000000 -0800
+++ flexi-streams-0.5.1/stream.lisp	2006-01-25 14:38:48.000000000 -0800
@@ -134,8 +134,8 @@
   "A flexi stream is open if its underlying stream is open."
   (open-stream-p (flexi-stream-stream stream)))
 
-(defclass flexi-output-stream (flexi-stream fundamental-binary-input-stream
-                                            fundamental-character-input-stream)
+(defclass flexi-output-stream (flexi-stream fundamental-binary-output-stream
+                                            fundamental-character-output-stream)
   ((column :initform 0
            :accessor flexi-stream-column
            :documentation "The current output column.  A