diff --git a/racket/syndicate-gl/2d.rkt b/racket/syndicate-gl/2d.rkt
index c13068b..5f71e29 100644
--- a/racket/syndicate-gl/2d.rkt
+++ b/racket/syndicate-gl/2d.rkt
@@ -214,7 +214,7 @@
     (match instr
       [`(rotate ,(? number? deg))
        (values `(glRotated ,deg 0 0 -1)
-               (compose-transformation xform (rotation-transformation deg)))]
+               (compose-transformation xform (rotation-transformation (- deg))))]
       [`(scale ,(? number? x) ,(? number? y))
        (values `(glScaled ,x ,y 1)
                (compose-transformation xform (stretching-transformation x y)))]