x11/x11base.scm (make-event-object): Convert bit number to bit mask.

diff --git a/src/x11/x11base.scm b/src/x11/x11base.scm
index ad657e4055a4ce37ac26a5104af01bb36f8419b9..444c6b4d45e371fe77d78644833060c72b458ea6 100644 (file)
--- a/src/x11/x11base.scm
+++ b/src/x11/x11base.scm
@@ -161,7 +161,8 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 
     (and
      (not (eq? #f scmtype))
-     (not (zero? (bitwise-and scmtype (C-call "x_window_event_mask" window))))
+     (not (zero? (bitwise-and (bit scmtype)
+                             (C-call "x_window_event_mask" window))))
      (cond
 
       ((eq? scmtype event-type:key-press)              ; xtype = KeyPress