diff --git a/Distribution/Simple/PreProcess/Unlit.hs b/Distribution/Simple/PreProcess/Unlit.hs
index 77d7370f4806744f377efcd3bb8c858df23065a5..cc88575616250ba1113496b1e2ca662814767c35 100644
--- a/Distribution/Simple/PreProcess/Unlit.hs
+++ b/Distribution/Simple/PreProcess/Unlit.hs
@@ -119,7 +119,7 @@ reclassify = blank -- begin in blank state
     latex []               = []
     latex (EndCode    :ls) = Blank "" : comment ls
     latex (BeginCode  :_ ) = [Error "\\begin{code} in code section"]
-    latex (BirdTrack l:ls) = Ordinary ('>':l) : bird ls
+    latex (BirdTrack l:ls) = Ordinary ('>':l) : latex ls
     latex (          l:ls) = l : latex ls
 
     blank []               = []