diff --git a/3or4/Interpreter/Self.hs b/3or4/Interpreter/Self.hs
index b09ea02..ac94d07 100644
--- a/3or4/Interpreter/Self.hs
+++ b/3or4/Interpreter/Self.hs
@@ -67,10 +67,9 @@ lookupExp =
   subst (Variable "if") ifExp .
   subst (Variable "equal") equalExp $ parse
   "\\c. rec lookup = \\xs. case xs of \
-  \ -- TODO: Fix for Nil() \
   \ { Cons(b,bs) -> \
   \     case b of \
-  \       { Branch(c', bs, e') -> if (equal c c') Pair(bs,e') (lookup bs) } \
+  \       { Branch(c', xs, e') -> if (equal c c') Pair(xs,e') (lookup bs) } \
   \ }"
 
 substsExp :: Exp