diff --git a/test/lisp/progmodes/eglot-tests.el b/test/lisp/progmodes/eglot-tests.el
index 2b6e09a4d16..07e96fad588 100644
--- a/test/lisp/progmodes/eglot-tests.el
+++ b/test/lisp/progmodes/eglot-tests.el
@@ -165,7 +165,7 @@ directory hierarchy."
   `(eglot--call-with-timeout ,timeout (lambda () ,@body)))
 
 (defun eglot--call-with-timeout (timeout fn)
-  (let* ((tag (gensym "eglot-test-timeout"))
+  (let* ((tag (cl-gensym "eglot-test-timeout"))
          (timed-out (make-symbol "timeout"))
          (timeout-and-message
           (if (listp timeout) timeout