diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,7 @@
+### 0.4.0.1
+
+- Fixed a bug in the implementation of `untilEnd`.
+
 # 0.4
 
 - Removed most modules from the exposed interface. Everything can be found in Codec.Wavefront.
diff --git a/src/Codec/Wavefront/Token.hs b/src/Codec/Wavefront/Token.hs
--- a/src/Codec/Wavefront/Token.hs
+++ b/src/Codec/Wavefront/Token.hs
@@ -205,4 +205,4 @@
     go = do
       a <- p
       end <- atEnd
-      if end then pure [] else fmap (a:) go
+      if end then pure [a] else fmap (a:) go
diff --git a/wavefront.cabal b/wavefront.cabal
--- a/wavefront.cabal
+++ b/wavefront.cabal
@@ -1,5 +1,5 @@
 name:                wavefront
-version:             0.4
+version:             0.4.0.1
 synopsis:            Wavefront OBJ loader
 description:         A Wavefront OBJ loader. Currently supports polygonal information. More could
                      be added if needed (like curves and surface) if people contribute. Feel free