From 1ff3e3b9422dee5094dfa320b9c2097f9f01e738 Mon Sep 17 00:00:00 2001
From: Matthias Felleisen <matthias@ccs.neu.edu>
Date: Sat, 30 Mar 2013 18:06:14 -0400
Subject: [PATCH] fixed rate argument for run-movie, Closes PR13642

---
 collects/2htdp/tests/run-movie.rkt | 13 +++++++++++++
 collects/2htdp/universe.rkt        |  2 +-
 collects/2htdp/xtest               |  1 +
 3 files changed, 15 insertions(+), 1 deletion(-)
 create mode 100644 collects/2htdp/tests/run-movie.rkt

diff --git a/collects/2htdp/tests/run-movie.rkt b/collects/2htdp/tests/run-movie.rkt
new file mode 100644
index 0000000000..00554ac82e
--- /dev/null
+++ b/collects/2htdp/tests/run-movie.rkt
@@ -0,0 +1,13 @@
+#lang racket
+
+(require 2htdp/universe 2htdp/image)
+
+(define (make-images i)
+  (cond
+    [(zero? i) '()]
+    [else (cons (place-image DOT 50 (* 50 i) BACKGROUND) (make-images (sub1 i)))]))
+
+(define DOT (circle 3 'solid 'red))
+(define BACKGROUND (empty-scene 100 400))
+
+(run-movie 8 (make-images 8))
diff --git a/collects/2htdp/universe.rkt b/collects/2htdp/universe.rkt
index 52d64dfbb8..0511cf64e2 100644
--- a/collects/2htdp/universe.rkt
+++ b/collects/2htdp/universe.rkt
@@ -327,7 +327,7 @@
          [hgt (image-height fst)])
     (big-bang 
      m* 
-     (on-tick rest r) 
+     (on-tick rest (/ 1 r))
      (on-draw (lambda (m) (if (empty? m) (text "The End" 22 'red) (first m))))
      (stop-when empty?))))
 
diff --git a/collects/2htdp/xtest b/collects/2htdp/xtest
index 3d157b4194..93050d9a2f 100755
--- a/collects/2htdp/xtest
+++ b/collects/2htdp/xtest
@@ -11,6 +11,7 @@ run() {
 cd tests 
 
 run key-error.rkt
+run run-movie.rkt
 run bad-draw.rkt
 run error-in-tick.rkt
 run error-in-draw.rkt