diff --git a/collects/2htdp/private/image-more.rkt b/collects/2htdp/private/image-more.rkt
index 66eef0ccce..7fc710119b 100644
--- a/collects/2htdp/private/image-more.rkt
+++ b/collects/2htdp/private/image-more.rkt
@@ -684,10 +684,10 @@
                         (line-segment-color simple-shape))]
     [(curve-segment? simple-shape)
      (make-curve-segment (flip-point (curve-segment-start simple-shape))
-                         (curve-segment-s-angle simple-shape)
+                         (bring-between (- 360 (curve-segment-s-angle simple-shape)) 360)
                          (curve-segment-s-pull simple-shape)
                          (flip-point (curve-segment-end simple-shape))
-                         (curve-segment-e-angle simple-shape)
+                         (bring-between (- 360 (curve-segment-e-angle simple-shape)) 360)
                          (curve-segment-e-pull simple-shape)
                          (curve-segment-color simple-shape))]
     [(polygon? simple-shape)
diff --git a/collects/2htdp/tests/test-image.rkt b/collects/2htdp/tests/test-image.rkt
index 0d509889b0..f95536a94e 100644
--- a/collects/2htdp/tests/test-image.rkt
+++ b/collects/2htdp/tests/test-image.rkt
@@ -1403,6 +1403,16 @@
                   10 -100
                   (ellipse 10 100 'solid 'blue)))
 
+(test (flip-vertical (add-curve (rectangle 200 100 'solid 'black)
+                                20 20 0 1
+                                180 80 -90 1/3
+                                "white"))
+      =>
+      (add-curve (rectangle 200 100 'solid 'black)
+                 20 80 0 1
+                 180 20 90 1/3
+                 "white"))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;
 ;; pen arguments