diff --git a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/universe-receive.rkt b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/universe-receive.rkt
index 9f019d9c44..725e9c57a8 100644
--- a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/universe-receive.rkt
+++ b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/universe-receive.rkt
@@ -27,7 +27,10 @@
      (sending-world rate limit)
      (receiving-world 10)
      ;; a universe that channels all messages from one world to another
-     (universe '() (on-new accept-another-world) (on-msg forward-message)))))
+     (universe '()
+               (on-tick (lambda (s) (make-bundle s '() '())) 1 10)
+               (on-new accept-another-world)
+	       (on-msg forward-message)))))
 
 ;; World1 = Number 
 
diff --git a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/universe-restart.rkt b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/universe-restart.rkt
index 00cec9cf08..17eef4f298 100644
--- a/pkgs/htdp-pkgs/htdp-test/2htdp/tests/universe-restart.rkt
+++ b/pkgs/htdp-pkgs/htdp-test/2htdp/tests/universe-restart.rkt
@@ -6,7 +6,7 @@
   (define (u)
     (universe 0
               (on-new (lambda (u w) (make-bundle (+ u 1) '() '())))
-              (on-tick (lambda (w) (make-bundle w '() '())) 1 5)
+              (on-tick (lambda (w) (make-bundle w '() '())) 1 3)
               (on-msg (lambda (u w m) (make-bundle (- u 1) '() (list w))))
               (state #t)))