diff --git a/lisp/play/zone.el b/lisp/play/zone.el
index 1e8e0cbab55..a470f23dfe4 100644
--- a/lisp/play/zone.el
+++ b/lisp/play/zone.el
@@ -347,7 +347,7 @@ run a specific program.  The program must be a member of
                 (upcase i)))
         (setq i (+ i (1+ (random 5)))))
       (translate-region (point-min) (point-max) tbl)
-      (sit-for 0 2))))
+      (sit-for 0.002))))
 
 (defun zone-pgm-putz-with-case ()
   (goto-char (point-min))
@@ -359,7 +359,7 @@ run a specific program.  The program must be a member of
                    'downcase-region) (1- np) np)
         (setq np (+ np (1+ (random 5))))))
     (goto-char (point-min))
-    (sit-for 0 2)))
+    (sit-for 0.002)))
 
 
 ;;;; rotating