diff --git a/collects/tests/gracket/windowing.rktl b/collects/tests/gracket/windowing.rktl
index 3452d43bc9..01ab90bc2d 100644
--- a/collects/tests/gracket/windowing.rktl
+++ b/collects/tests/gracket/windowing.rktl
@@ -216,10 +216,12 @@
 	[client->screen-tests
 	 (lambda ()
 	   (printf "Client<->Screen\n")
-	   (let-values ([(x y) (send f client->screen 0 0)])
-	     (stvals '(0 0) f screen->client x y))
-	   (let-values ([(x y) (send f screen->client 0 0)])
-	     (stvals '(0 0) f client->screen x y)))]
+	   (X-FAILS
+        (let-values ([(x y) (send f client->screen 0 0)])
+          (stvals '(0 0) f screen->client x y)))
+	   (X-FAILS
+        (let-values ([(x y) (send f screen->client 0 0)])
+          (stvals '(0 0) f client->screen x y))))]
 	[container-tests
 	 (lambda ()
 	   (printf "Container\n")