diff --git a/scheme/xlib/event.scm b/scheme/xlib/event.scm
index 40f6e51..e824c86 100644
--- a/scheme/xlib/event.scm
+++ b/scheme/xlib/event.scm
@@ -13,6 +13,7 @@
 	      (make-window Xwin (vector-ref args 2))))
     (let* ((display (vector-ref args 2))
 	   (window (vector-ref args 3))
+	   (sidx 4) ;; start index of event-dependand fields
 	   (make-window* (lambda (Xwindow)
 			   (make-window Xwindow display))))
       ;; special entries
@@ -70,9 +71,10 @@
   "Peek_Event")
 
 (define (events-pending display)
-  (if (event-ready? display)
-      (%events-pending (display-Xdisplay display))
-      0))
+  (%events-pending (display-Xdisplay display)))
+;  (if (event-ready? display)
+;      (%events-pending (display-Xdisplay display))
+;      0))
 
 (import-lambda-definition %events-pending (Xdisplay)
   "Events_Pending")
\ No newline at end of file