diff --git a/scheme/cyclone/cps-optimizations.sld b/scheme/cyclone/cps-optimizations.sld
index 733a6bcb..f9e83e94 100644
--- a/scheme/cyclone/cps-optimizations.sld
+++ b/scheme/cyclone/cps-optimizations.sld
@@ -245,7 +245,7 @@
         ((quote? exp) exp)
         ((define? exp)
          `(define ,(opt:contract (define->var exp))
-                  ,(opt:contract (define->exp exp))))
+                  ,@(opt:contract (define->exp exp))))
         ((set!? exp)
          `(set! ,(opt:contract (set!->var exp))
                 ,(opt:contract (set!->exp exp))))