diff --git a/hledger-lib/Hledger/Read/JournalReader.hs b/hledger-lib/Hledger/Read/JournalReader.hs
index a102d035e..9f7181093 100644
--- a/hledger-lib/Hledger/Read/JournalReader.hs
+++ b/hledger-lib/Hledger/Read/JournalReader.hs
@@ -214,7 +214,7 @@ includedirective = do
   r <- liftIO $ runErrorT u
   case r of
     Left err -> return $ throwError err
-    Right (ju, ctx) -> return $ ErrorT $ return $ Right ju
+    Right (ju, _finalparsectx) -> return $ ErrorT $ return $ Right ju
 
 journalAddFile :: (FilePath,String) -> Journal -> Journal
 journalAddFile f j@Journal{files=fs} = j{files=fs++[f]}