diff --git a/module/mescc/compile.scm b/module/mescc/compile.scm
index c75c3303..20cc8e28 100644
--- a/module/mescc/compile.scm
+++ b/module/mescc/compile.scm
@@ -1796,19 +1796,19 @@
            (let ((c (pmatch o
                       ((case ,test (case . ,body))
                        (append `((case ,test (expr-stmt)))
-                               (flatten-case `(case ,@body) cases)))
+                               (flatten-case `(case ,@body))))
                       ((case ,test ,case-body (case . ,body))
                        (append `((case ,test ,case-body))
-                               (flatten-case `(case ,@body) cases)))
+                               (flatten-case `(case ,@body))))
                       ((default (case . ,body))
                        (append `((default (expr-stmt)))
-                               (flatten-case `(case ,@body) cases)))
+                               (flatten-case `(case ,@body))))
                       ((default ,default-body (case . ,body))
                        (append `((default ,default-body))
-                               (flatten-case `(case ,@body) cases)))
+                               (flatten-case `(case ,@body))))
                       ((case ,test (default . ,body))
                        (append `((case ,test (expr-stmt)))
-                               (flatten-case `(default ,@body) cases)))
+                               (flatten-case `(default ,@body))))
                       ((default ,rest)
                        (list o))
                       ((case ,test)