diff --git a/scheme/xlib/event.scm b/scheme/xlib/event.scm
index a072a9f..fe2fab0 100644
--- a/scheme/xlib/event.scm
+++ b/scheme/xlib/event.scm
@@ -6,7 +6,7 @@
 (define (wait-event dpy)
   (if (not (> (events-queued dpy (queued-mode after-flush)) 0))
       (block-on-message-inport dpy))
-  (next-event dpy))
+  (next-event dpy))  
 
 (define (block-on-message-inport dpy) ; needs ports, locks
   (let ((port (display-message-inport dpy)))
@@ -43,7 +43,7 @@
 (define (queued-mode->integer mode)
   (queued-mode-index mode))
 
-;; events-pending is identical to events-pending with after-flush
+;; events-pending is identical to events-queued with after-flush
 ;; mode.
 
 (define (events-pending display)