diff --git a/src/Data/Text/Lazy.hs b/src/Data/Text/Lazy.hs
index c52aa7a2..b4d3e0a3 100644
--- a/src/Data/Text/Lazy.hs
+++ b/src/Data/Text/Lazy.hs
@@ -1438,7 +1438,7 @@ inits = (NE.toList P.$!) . initsNE
 initsNE :: Text -> NonEmpty Text
 initsNE = (Empty NE.:|) . inits'
   where inits' Empty        = []
-        inits' (Chunk t ts) = L.map (\t' -> Chunk t' Empty) (L.drop 1 (T.inits t))
+        inits' (Chunk t ts) = L.map (\t' -> Chunk t' Empty) (NE.tail (T.initsNE t))
                            ++ L.map (Chunk t) (inits' ts)
 
 -- | /O(n)/ Return all final segments of the given 'Text', longest