diff --git a/collects/2htdp/private/image-more.rkt b/collects/2htdp/private/image-more.rkt
index 78dcd1a964..9d33136a6f 100644
--- a/collects/2htdp/private/image-more.rkt
+++ b/collects/2htdp/private/image-more.rkt
@@ -707,15 +707,15 @@
      (let ([bitmap (flip-shape atomic-shape)]
            [flipped? (flip-flipped? atomic-shape)])
        (make-flip flipped?
-                  (make-bitmap (ibitmap-raw-bitmap bitmap)
-                               (ibitmap-raw-mask bitmap)
-                               (bring-between (if flipped? 
-                                                  (+ (ibitmap-angle bitmap) θ)
-                                                  (- (ibitmap-angle bitmap) θ))
-                                              360)
-                               (ibitmap-x-scale bitmap)
-                               (ibitmap-y-scale bitmap)
-                               (make-hash))))]))
+                  (make-ibitmap (ibitmap-raw-bitmap bitmap)
+                                (ibitmap-raw-mask bitmap)
+                                (bring-between (if flipped? 
+                                                   (+ (ibitmap-angle bitmap) θ)
+                                                   (- (ibitmap-angle bitmap) θ))
+                                               360)
+                                (ibitmap-x-scale bitmap)
+                                (ibitmap-y-scale bitmap)
+                                (make-hash))))]))
 
 ;; rotate-point : point angle -> point
 (define (rotate-point p θ)