diff --git a/.local/share/common-lisp/source/ambrevar/shell.lisp b/.local/share/common-lisp/source/ambrevar/shell.lisp
index fb132144..07909f08 100644
--- a/.local/share/common-lisp/source/ambrevar/shell.lisp
+++ b/.local/share/common-lisp/source/ambrevar/shell.lisp
@@ -202,7 +202,7 @@ Example:
     (apply #'cmd:$cmd cmd (append butlast-args
                                   (list :input last-arg)))))
 
-(defun %cmd<-> (final-caller &rest args)
+(defun %cmd- (final-caller &rest args)
   "See `cmd<->'."
   (let ((arg-lists (sera:split-sequence :<> args)))
     (sera:nlet call ((arg-lists arg-lists)