diff --git a/scheme/cyclone/cgen.sld b/scheme/cyclone/cgen.sld
index 7d5f5161..a2568261 100644
--- a/scheme/cyclone/cgen.sld
+++ b/scheme/cyclone/cgen.sld
@@ -825,6 +825,15 @@
                     (c:body cargs)
                     ");"))))))
 
+        ((equal? 'Cyc-seq fun)
+         (let ((exps (foldr
+                       (lambda (expr acc)
+                         (c:append 
+                           acc
+                           (c-compile-exp expr append-preamble cont trace cps?)))
+                       (c-code "")
+                       args)))
+          exps))
         (else
          (error `(Unsupported function application ,exp)))))))