diff --git a/collects/htdp/image.ss b/collects/htdp/image.ss
index 7dd726815c..f8129a8c8e 100644
--- a/collects/htdp/image.ss
+++ b/collects/htdp/image.ss
@@ -561,7 +561,7 @@ plt/collects/tests/mzscheme/htdp-image.ss
       (cond
         [(zero? n) null]
         [else
-         (let ([angle (+ delta-angle (* 2 pi n (/ 1 points)))])
+         (let ([angle (+ delta-angle (/ (* 2 pi n) points))])
            (cons (make-object point% 
                    (+ radius (* radius (cos angle)))
                    (+ radius (* radius (sin angle))))