diff --git a/test/trapezoid.lisp b/test/trapezoid.lisp
index 7b1a571b44f73578010fe072fbc5fd8ecba8a6c2..ff959425867fa5b0ea872cb16677ee8b8a1d4660 100644
--- a/test/trapezoid.lisp
+++ b/test/trapezoid.lisp
@@ -21,9 +21,9 @@
 (in-package :xlib)
 
 
-(defun zoid-test (host)
+(defun zoid-test ()
   ;; Display the part picture in /extensions/test/datafile
-  (let* ((display (open-display host))
+  (let* ((display (open-default-display))
 	 (width 400)
 	 (height 400)
 	 (screen (display-default-screen display))
@@ -55,15 +55,15 @@
 	      (when (zerop count) ;; Ignore all but the last exposure event
 		(clear-area window)
 		;; NOT VERY INTERESTING, BUT CHECKS ALL THE POSSIBILITIES
-		(poly-fill-Trapezoids window gc  '(10 20 30 40 100 200))
+		(draw-filled-trapezoids window gc  '(10 20 30 40 100 200))
 		(setf (gcontext-trapezoid-alignment gc) :y)
-		(poly-fill-Trapezoids window gc  #(10 20 30 40 100 200))
+		(draw-filled-trapezoids window gc  #(10 20 30 40 100 200))
 		(with-gcontext (gc :trapezoid-alignment :x)
-		  (poly-fill-Trapezoids window gc  '(40 50 60 70 140 240)))
+		  (draw-filled-trapezoids window gc  '(40 50 60 70 140 240)))
 		(setf (gcontext-trapezoid-alignment gc) :x)
-		(poly-fill-Trapezoids window gc  #(40 50 60 70 80 90))
+		(draw-filled-trapezoids window gc  #(40 50 60 70 80 90))
 		(with-gcontext (gc :trapezoid-alignment :y)
-		  (poly-fill-Trapezoids window gc  #(40 50 60 70 140 240)))
+		  (draw-filled-trapezoids window gc  #(40 50 60 70 140 240)))
 		  
 		(draw-glyphs window gc 10 10 "Press any key to exit")
 		;; Returning non-nil causes event-case to exit