diff --git a/.local/share/common-lisp/source/ambrevar/shell.lisp b/.local/share/common-lisp/source/ambrevar/shell.lisp
index bfe4a0bc..79971952 100644
--- a/.local/share/common-lisp/source/ambrevar/shell.lisp
+++ b/.local/share/common-lisp/source/ambrevar/shell.lisp
@@ -180,8 +180,8 @@ Example:
                                   (list :input last-arg)))))
 
 (defun %cmd- (final-caller &rest args)
-  "See `cmd<->'."
-  (let ((arg-lists (sera:split-sequence :<> args)))
+  "See `cmd-'."
+  (let ((arg-lists (sera:split-sequence :- args)))
     (sera:nlet call ((arg-lists arg-lists)
                      (last-result-stream nil))
       (let* ((args (first arg-lists)))