diff --git a/src/tests/normal-tests/compiler.lsp b/src/tests/normal-tests/compiler.lsp
index 1525ce5e8..02a2ce6b8 100644
--- a/src/tests/normal-tests/compiler.lsp
+++ b/src/tests/normal-tests/compiler.lsp
@@ -678,23 +678,23 @@
       (with-compiler ("make-load-form.lsp")
         "(in-package cl-test)"
         "(eval-when (:compile-toplevel)
-      (defparameter s4 (make-instance 'compiler-test-class))
-      (defparameter s5 (make-instance 'compiler-test-class))
-      (setf (compiler-test-parent s5) s4)
-      (setf (compiler-test-children s4) (list s5)))"
-        "(defparameter a '#.s5)"
-        "(defparameter b '#.s4)"
-        "(defparameter c '#.s5)"
-        "(defun foo ()
+      (defparameter s4.0030 (make-instance 'compiler-test-class))
+      (defparameter s5.0030 (make-instance 'compiler-test-class))
+      (setf (compiler-test-parent s5.0030) s4.0030)
+      (setf (compiler-test-children s4.0030) (list s5.0030)))"
+        "(defparameter a.0030 '#.s5.0030)"
+        "(defparameter b.0030 '#.s4.0030)"
+        "(defparameter c.0030 '#.s5.0030)"
+        "(defun foo.0030 ()
        (let ((*print-circle* t))
-         (with-output-to-string (s) (princ '#1=(1 2 3 #.s4 #1#) s))))")
+         (with-output-to-string (s) (princ '#1=(1 2 3 #.s4.0030 #1#) s))))")
     (declare (ignore output))
     (load file)
     (delete-file "make-load-form.lsp")
     (delete-file file))
-  (is-equal "#1=(1 2 3 #<a CL-TEST::COMPILER-TEST-CLASS> #1#)" (foo))
-  (is (eq (compiler-test-parent a) b))
-  (is (eq (first (compiler-test-children b)) a)))
+  (is-equal "#1=(1 2 3 #<a CL-TEST::COMPILER-TEST-CLASS> #1#)" (foo.0030))
+  (is (eq (compiler-test-parent a.0030) b.0030))
+  (is (eq (first (compiler-test-children b.0030)) a.0030)))
 
 ;;; Date: 9/06/2006 (Pascal Costanza)
 ;;; Fixed: 13/06/2006 (juanjo)