diff --git a/src/PDF/Object.hs b/src/PDF/Object.hs
index d6d1129..fc116e4 100644
--- a/src/PDF/Object.hs
+++ b/src/PDF/Object.hs
@@ -329,7 +329,7 @@ instance Output XRefSection where
 
 xRefSection :: Parser u XRefSection
 xRefSection = foldr addSubsection Map.empty <$>
-  (line "xref" *> xRefSubSection `sepBy` EOL.parser)
+  (line "xref" *> xRefSubSection `sepBy` many EOL.parser)
   where
     addSubsection (XRefSubSection {firstObjectId, entries}) =
       Map.union . Map.fromList $ zip ([firstObjectId..]) entries