diff --git a/init.scm b/init.scm
index 16e8a236..6773cb03 100644
--- a/init.scm
+++ b/init.scm
@@ -157,7 +157,8 @@
                           (list (rename 'if) (rename 'tmp)
                                 (if (null? (cdr cl))
                                     (rename 'tmp)
-                                    (list (caddr cl) (rename 'tmp)))))
+                                    (list (caddr cl) (rename 'tmp)))
+                                (cons (rename 'cond) (cddr expr))))
                     (list (rename 'if)
                           (car cl)
                           (cons (rename 'begin) (cdr cl))