diff --git a/src/lsp/cmuutil.lsp b/src/lsp/cmuutil.lsp
index 0a8ad8eea..d3def4ca8 100644
--- a/src/lsp/cmuutil.lsp
+++ b/src/lsp/cmuutil.lsp
@@ -134,11 +134,11 @@
 ;;; Incidentally, this is essentially the same operator which
 ;;; _On Lisp_ calls WITH-GENSYMS.
 (defmacro with-unique-names (symbols &body body)
-  `(let ,(mapcar (lambda (symbol)
-                   (let* ((symbol-name (symbol-name symbol))
-                          (stem (if (every #'alpha-char-p symbol-name)
+  `(let* ,(mapcar (lambda (symbol)
+                    (let* ((symbol-name (symbol-name symbol))
+                           (stem (if (every #'alpha-char-p symbol-name)
                                     symbol-name
                                     (concatenate 'string symbol-name "-"))))
-                     `(,symbol (block-gensym ,stem))))
-                 symbols)
+                      `(,symbol (gensym ,stem))))
+                  symbols)
      ,@body))