diff --git a/modules/lang/common-lisp/doctor.el b/modules/lang/common-lisp/doctor.el
index 891f5ae8e..3c1842726 100644
--- a/modules/lang/common-lisp/doctor.el
+++ b/modules/lang/common-lisp/doctor.el
@@ -1,6 +1,7 @@
 ;;; lang/common-lisp/doctor.el -*- lexical-binding: t; -*-
 
 (when (require 'sly nil t)
-  (unless (executable-find inferior-lisp-program)
-    (warn! "Couldn't find your `inferior-lisp-program' (%s). Is it installed?"
-           inferior-lisp-program)))
+  (let ((prog-name (car (split-string inferior-lisp-program))))
+    (unless (executable-find prog-name)
+      (warn! "Couldn't find your `inferior-lisp-program' (%s). Is it installed?"
+             inferior-lisp-program))))