From fa8a992d8a3fbba5be48a7bb8255d61364f5087f Mon Sep 17 00:00:00 2001
From: Matt Birkholz <matt@birchwood-abbey.net>
Date: Fri, 12 Aug 2016 13:16:37 -0700
Subject: [PATCH] x11/x11base.scm (make-event-object): Convert bit number to
 bit mask.

---
 src/x11/x11base.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/x11/x11base.scm b/src/x11/x11base.scm
index ad657e405..444c6b4d4 100644
--- 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
-- 
2.25.1