diff --git a/module/language/tree-il/compile-bytecode.scm b/module/language/tree-il/compile-bytecode.scm
index 91a8668e7..deead726f 100644
--- a/module/language/tree-il/compile-bytecode.scm
+++ b/module/language/tree-il/compile-bytecode.scm
@@ -72,7 +72,7 @@
   (cond
    ((= car dst)
     (emit-mov asm 1 car)
-    (emit-cons asm dst 1 (if (= cdr dst) 1 dst)))
+    (emit-cons asm dst 1 (if (= cdr dst) 1 cdr)))
    ((= cdr dst)
     (emit-mov asm 1 cdr)
     (emit-cons asm dst car 1))