diff --git a/tools/invoke-lisp.lisp b/tools/invoke-lisp.lisp
index c6d5576213265a2292107b15f21d58dcde19896b..dd50fac452b5b215fc6e89afb264155b8254321f 100644
--- a/tools/invoke-lisp.lisp
+++ b/tools/invoke-lisp.lisp
@@ -41,7 +41,7 @@ and which systems to test loading with ASDF_TEST_SYSTEMS or s=
                 :for allegro-variant = (conc-keyword :allegro casename charname bitsname smpname)
                 :for fullname = (strcat "Allegro CL"
                                         casefullname charfullname bitsfullname smpfullname)
-                :for executable = (format nil "~(~alisp~a~a~a~)" caseexe charname bitsname smpname) :do
+                :for executable = (format nil "~(~alisp~a~)" caseexe charname) :do
                   (register-lisp-implementation
                    allegro-variant
                    :fullname fullname