Index: /trunk/source/level-1/l1-streams.lisp
===================================================================
--- /trunk/source/level-1/l1-streams.lisp	(revision 12762)
+++ /trunk/source/level-1/l1-streams.lisp	(revision 12763)
@@ -3915,4 +3915,5 @@
   (two-way-input-method stream-surrounding-characters)
   (two-way-input-method stream-input-timeout)
+  (two-way-input-method interactive-stream-p)
   (two-way-output-method stream-write-char c)
   (two-way-output-method stream-write-byte b)
@@ -4838,4 +4839,8 @@
 (defmethod interactive-stream-p ((stream buffered-stream-mixin))
   (let* ((ioblock (stream-ioblock stream nil)))
+    (and ioblock (ioblock-interactive ioblock))))
+
+(defmethod interactive-stream-p ((stream basic-stream))
+  (let* ((ioblock (basic-stream.state stream)))
     (and ioblock (ioblock-interactive ioblock))))