diff --git a/eval.lisp b/eval.lisp
index 336f6a0..3d0221f 100644
--- a/eval.lisp
+++ b/eval.lisp
@@ -7,7 +7,7 @@
                    (lambda (e a)
                     (cond ((null a) nil)
                        ((eq e caar a)) (car a)
-                       (t (assoc e (cdr a)))))
+                       (t (assoc e (cdr a))))))
                    e
                    a)))))
         ((atom (car e))
@@ -73,4 +73,5 @@
              a))
             a)))
         ((eq (caar e) (quote label))
-         (eval (cons (caddar e) (cdr e))) a)))))
+         (eval (cons (caddar e) (cdr e))
+             (cons (cons (cadar e) (car e)) a))))))