diff --git a/tools/invoke-lisp.lisp b/tools/invoke-lisp.lisp
index 0a3ae53bdbcab230fff02dedeb4bcce385c21f71..3790c90557b7c3960e263db1c2eb1993393cfa76 100644
--- a/tools/invoke-lisp.lisp
+++ b/tools/invoke-lisp.lisp
@@ -68,13 +68,14 @@ REGISTER-LISP-IMPLEMENTATION."
                      :dump-format "(progn (sys:resize-areas :global-gc t :pack-heap t :sift-old-areas t :tenure t) (excl:dumplisp :name ~A :suppress-allegro-cl-banner t))"))))))))
 
 (defun register-lisp-implementation* (x)
-  "Register the lisp implementation described a list X of a name followed by a plist"
+  "Register the lisp implementation described by the list X, which consists of a name
+followed by a plist of keywords and arguments."
   (apply 'register-lisp-implementation x))
 
 (map () 'register-lisp-implementation* (all-allegro-variants))
 
 (defun all-ecl-variants ()
-  "Return a list of possible ECL variants with or withotu bytecode compiler"
+  "Return a list of possible ECL variants with or without bytecode compiler"
   (loop
     :for (ecl-variant extraname flags) :in
     '((:ecl "" ("-load" "sys:cmp"))