diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index a2568261..c3491d6a 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -828,9 +828,12 @@
         ((equal? 'Cyc-seq fun)
          (let ((exps (foldr
                        (lambda (expr acc)
-                         (c:append 
-                           acc
-                           (c-compile-exp expr append-preamble cont trace cps?)))
+                         ;(c:append 
+                         (let ((cp1 (c-compile-exp expr append-preamble cont trace cps?))
+                               (cp2 acc))
+                           (c-code/vars 
+                             (string-append (c:body cp1) ";" (c:body cp2))
+                             (append (c:allocs cp1) (c:allocs cp2)))))
                        (c-code "")
                        args)))
           exps))