diff --git a/compiler/globaldb.lisp b/compiler/globaldb.lisp
index 5e776b09ed9336526ffb54e192de3d376b79380a..eb004c94302c5c8e978587d1bc629050737d1806 100644
--- a/compiler/globaldb.lisp
+++ b/compiler/globaldb.lisp
@@ -343,9 +343,9 @@
   "Set the global information for Name."
   (let* ((n-name (gensym))
 	 (n-value (gensym))
-	 (class (symbol-name class))
-	 (type (symbol-name type))
-	 (info (type-info-or-lose class type)))
+	 (class-str (symbol-name class))
+	 (type-str (symbol-name type))
+	 (info (type-info-or-lose class-str type-str)))
     (values
      `(,n-name)
      `(,name)