diff --git a/collects/htdp/image.ss b/collects/htdp/image.ss
index 3eb860f7ab..73a8133c86 100644
--- a/collects/htdp/image.ss
+++ b/collects/htdp/image.ss
@@ -525,21 +525,30 @@ plt/collects/tests/mzscheme/image-test.ss
     (let* ([inner-radius (inexact->exact (floor in-inner-radius))]
            [outer-radius (inexact->exact (floor in-outer-radius))]
            [points (star-points inner-radius outer-radius points)]
+           [radial-offset
+            (if (<= inner-radius outer-radius)
+                0
+                (- inner-radius outer-radius))]
            [draw 
             (make-color-wrapper
              color (mode->brush-symbol mode) 'solid
              (λ (dc dx dy)
-               (send dc draw-polygon points dx dy)))]
+               (send dc draw-polygon points 
+                     (+ dx radial-offset)
+                     (+ dy radial-offset))))]
            [mask-draw 
             (make-color-wrapper
              'black (mode->brush-symbol mode) 'solid
              (λ (dc dx dy)
-               (send dc draw-polygon points dx dy)))])
+               (send dc draw-polygon points
+                     (+ dx radial-offset)
+                     (+ dy radial-offset))))]
+           [size-determining-radius (+ (max inner-radius outer-radius) 1)])
       (make-simple-cache-image-snip 
-       (* outer-radius 2)
-       (* outer-radius 2)
-       outer-radius
-       outer-radius
+       (* size-determining-radius 2)
+       (* size-determining-radius 2)
+       size-determining-radius
+       size-determining-radius
        draw
        mask-draw)))
   
diff --git a/collects/tests/mzscheme/htdp-image.ss b/collects/tests/mzscheme/htdp-image.ss
index d098c92ff1..59ff0b1324 100644
--- a/collects/tests/mzscheme/htdp-image.ss
+++ b/collects/tests/mzscheme/htdp-image.ss
@@ -788,6 +788,7 @@
 (check-on-bitmap 'solid-triangle (triangle 10 'solid 'red))
 (check-on-bitmap 'outline-triangle (triangle 10 'outline 'red))
 (check-on-bitmap 'solid-star (star 4 10 20 'solid 'red))
+(check-on-bitmap 'solid-star/reverse-args (star 4 20 10 'solid 'red))
 (check-on-bitmap 'outline-star (star 4 10 20 'outline 'red))
 (check-on-bitmap 'line (line 10 7 'red))
 ; (check-on-bitmap 'text (text "XX" 12 'red)) ;; this test fails for reasons I can't control ... -robby