diff --git a/src/PDF/Output.hs b/src/PDF/Output.hs
index 82cbe99..688f17a 100644
--- a/src/PDF/Output.hs
+++ b/src/PDF/Output.hs
@@ -116,7 +116,7 @@ char :: Char -> OBuilder
 char c = lift char8 c <* offset (+1)
 
 string :: String -> OBuilder
-string s = lift string8 s <* offset (+ toEnum (length s))
+string s = lift string8 s <* offset (+ length s)
 
 line :: String -> OBuilder
 line l = string l `mappend` newLine