@@ -102,7 +102,8 @@

              (setf start-pos (1+ end-pos))

            while (< (length parts) (1- count))

            finally

-             (cond ((and end-pos count)

+             (cond ((or (and end-pos count)

+                        (< start-pos (length string)))

                     (vector-push (subseq string start-pos)

                                  parts))

                    ((not end-pos)

@@ -76,4 +76,9 @@

     (st:should be vos-equal

                #("")

                (%split-on-char #\/ "")))

+

+  (st:deftest char-split-no-sep-returns-vec-with-contents ()

+    (st:should be vos-equal

+               #("Bacon")

+               (%split-on-char #\. "Bacon")))

   )