pdf.wrap: make sure to calculate whitespace properly.

extra/pdf/wrap/wrap.factor

@@ -31,7 +31,7 @@ PRIVATE>
 
 : string>elements ( string font -- elements )
     [ word-split ] dip '[
-        dup word-split1 "" or
+        dup dup [ blank? ] find drop [ cut ] [ "" ] if*
         [ _ swap text-width ] bi@
         <element>
     ] map ;