diff --git a/clim/input-protocol.lisp b/clim/input-protocol.lisp
index 11d488ae76c0375a0551cdae3d0149e1372024fa..859b067cc45b9c34dc358cb9e3fa47b645c356a5 100644
--- a/clim/input-protocol.lisp
+++ b/clim/input-protocol.lisp
@@ -513,7 +513,6 @@
 ;;; However, it does not want to flush any pending action elements that
 ;;; might precede the character, 'cause LISTEN should have no side effects.
 (defmethod stream-listen ((stream input-protocol-mixin))
-  #-silica (stream-event-handler stream :timeout 0)        ;Process pending keyboard input events
   (let ((input-buffer (stream-input-buffer stream)))
     (when (queue-empty-p input-buffer)
       (return-from stream-listen nil))
@@ -608,7 +607,7 @@
                           (> (get-internal-real-time) end-time))
                  (setq flag :timeout))
                flag))
-	#+os-threads (declare (dynamic-extent #'waiter))
+        (declare (dynamic-extent #'waiter))
         (port-event-wait (port stream) #'waiter 
           :wait-reason "Clim Input"
           :timeout timeout)