diff --git a/test/Spec.hs b/test/Spec.hs
index 11cc453..ff3e8b9 100644
--- a/test/Spec.hs
+++ b/test/Spec.hs
@@ -579,8 +579,7 @@ spec = do
 
       "'¦foo bar¦" `is` "¦foo bar¦"
 
-      -- @incomplete: parse a leading dot as an implicit upon
-      -- "(let x '(a . b) (map .x (list car cdr)))" `is` "(a b)"
+      "(let x '(a . b) (map .x (list car cdr)))" `is` "(a b)"
 
       replTest $ []
         >> [r|