diff --git a/collects/sgl/examples/gears.rkt b/collects/sgl/examples/gears.rkt
index cba4b9b31e..71d6f88a49 100644
--- a/collects/sgl/examples/gears.rkt
+++ b/collects/sgl/examples/gears.rkt
@@ -335,7 +335,7 @@
 	   (gl-flush)))
 	(when step?
 	  (set! step? #f)
-	  (queue-callback (lambda x (send this run))))))
+	  (queue-callback (lambda x (send this run)) #f))))
 
     (super-instantiate () (style '(gl no-autoclear)))))
 (define (f)