diff --git a/core/sequence.lisp b/core/sequence.lisp
index 6f7ecd4..59c9bfe 100644
--- a/core/sequence.lisp
+++ b/core/sequence.lisp
@@ -8,7 +8,7 @@
 
 
 (defun split-sequence (delimiter seq
-                       &key (count nil) (remove-empty-subseqs nil)
+                       &key (count nil) (remove-empty-subseqs t)
                             (from-end nil) (start 0) (end nil)
                             (key nil key-supplied)
                             (test nil test-supplied)
@@ -69,7 +69,7 @@
              :finally (return (values subseqs right)))))))
 
 (defun split-sequence-if (predicate seq
-                          &key (count nil) (remove-empty-subseqs nil)
+                          &key (count nil) (remove-empty-subseqs t)
                                (from-end nil) (start 0) (end nil)
                                (key nil key-supplied))
   "Return a list of subsequences in SEQ delimited by items, satisfying PREDICATE.
@@ -122,7 +122,7 @@
              :finally (return (values subseqs right)))))))
 
 (defun split-sequence-if-not (predicate seq
-                              &key (count nil) (remove-empty-subseqs nil)
+                              &key (count nil) (remove-empty-subseqs t)
                                    (from-end nil) (start 0) (end nil)
                                    (key nil key-supplied))
   "Return a list of subsequences in SEQ delimited by items, satisfying
diff --git a/core/string.lisp b/core/string.lisp
index 4cba9a5..41b74c5 100644
--- a/core/string.lisp
+++ b/core/string.lisp
@@ -43,8 +43,7 @@
 
 (defun split-string (string)
   "Split STRING by WHITE-CHAR-P."
-  (rutils.sequence:split-sequence-if #'white-char-p string
-                                     :remove-empty-subseqs t))
+  (rutils.sequence:split-sequence-if #'white-char-p string))
 
 (defun substr (string start &optional end)
   "Efficient substring of STRING from START to END (optional),
diff --git a/test/sequence-test.lisp b/test/sequence-test.lisp
index 68607b1..b735caa 100644
--- a/test/sequence-test.lisp
+++ b/test/sequence-test.lisp
@@ -14,9 +14,9 @@
   (should be equal '("foo" "bar")
           (split-sequence #\Space "foo bar"))
   (should be equal '("foo" "bar")
-          (split-sequence #\Space "foo  bar" :remove-empty-subseqs t))
+          (split-sequence #\Space "foo  bar"))
   (should be equal '("foo" "" "bar" "baz")
-          (split-sequence #\Space "foo  bar baz"))
+          (split-sequence #\Space "foo  bar baz" :remove-empty-subseqs nil))
   (should be equal '("foo" "bar" "baz")
           (split-sequence " " "foo bar baz" :test 'string=))
   (should be equal '("foo" "bar" "baz")
@@ -44,9 +44,9 @@
     (should be equal '("foo" "bar")
             (split-sequence-if space-char-p "foo bar"))
     (should be equal '("foo" "bar")
-            (split-sequence-if space-char-p "foo  bar" :remove-empty-subseqs t))
+            (split-sequence-if space-char-p "foo  bar"))
     (should be equal '("foo" "" "bar" "baz")
-            (split-sequence-if space-char-p "foo  bar baz"))
+            (split-sequence-if space-char-p "foo  bar baz" :remove-empty-subseqs nil))
     (should be equal '("foo")
             (split-sequence-if space-char-p "foo bar baz" :count 1))
     (should be equal '("baz")
@@ -67,10 +67,9 @@
   (should be equal '("foo" "bar")
           (split-sequence-if-not 'alpha-char-p "foo bar"))
   (should be equal '("foo" "bar")
-          (split-sequence-if-not 'alpha-char-p "foo  bar"
-                                 :remove-empty-subseqs t))
+          (split-sequence-if-not 'alpha-char-p "foo  bar"))
   (should be equal '("foo" "" "bar" "baz")
-          (split-sequence-if-not 'alpha-char-p "foo  bar baz"))
+          (split-sequence-if-not 'alpha-char-p "foo  bar baz" :remove-empty-subseqs nil))
   (should be equal '("foo")
           (split-sequence-if-not 'alpha-char-p "foo bar baz" :count 1))
   (should be equal '("baz")