diff --git a/scheme/xlib/event-types.scm b/scheme/xlib/event-types.scm
index b2bd92a..af71baa 100644
--- a/scheme/xlib/event-types.scm
+++ b/scheme/xlib/event-types.scm
@@ -367,7 +367,7 @@
 			   subwindow time x y x-root y-root state is-hint?
 			   same-screen?)
   (let ((display (make-display display #f)))
-    (create-button-event
+    (create-motion-event
      type serial send-event? display
      (make-window window display #f)
      (make-window root display #f)
diff --git a/scheme/xlib/graphics.scm b/scheme/xlib/graphics.scm
index 8005c85..b1b243c 100644
--- a/scheme/xlib/graphics.scm
+++ b/scheme/xlib/graphics.scm
@@ -254,7 +254,8 @@
 
 ;; Now some auxiliary functions:
 
-(define rect list)
+(define (rect x y w h)
+  (list x y w h))
 
 (define (rect? obj)
   (and (list? obj) (= 4 (length obj))))