Index: /trunk/source/cocoa-ide/cocoa-listener.lisp
===================================================================
--- /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 12758)
+++ /trunk/source/cocoa-ide/cocoa-listener.lisp	(revision 12759)
@@ -53,5 +53,6 @@
    (reading-line :initform nil :accessor hi:input-stream-reading-line)))
 
-
+(defmethod interactive-stream-p ((stream cocoa-listener-input-stream))
+  t)