diff --git a/ansi-tests/compile-and-load.lsp b/ansi-tests/compile-and-load.lsp
index d7f2757c041a5c8f34e79509ef89938413a8eaf7..3871970a6ca63dff36c8487dd119e8d9373dfeb5 100644
--- a/ansi-tests/compile-and-load.lsp
+++ b/ansi-tests/compile-and-load.lsp
@@ -1,4 +1,5 @@
-(in-package :common-lisp-user)
+#-(and gcl (not ansi-cl)) (in-package :common-lisp-user)
+#+(and gcl (not ansi-cl)) (in-package "USER")
 
 #+allegro
 (progn
@@ -7,7 +8,7 @@
     (push :lower-case *features*)))
 
 (eval-when (:load-toplevel :compile-toplevel :execute)
-  (intern "==>" "CL-USER")
+  ;; (intern "==>" "CL-USER")
   (unless (fboundp 'compile-file-pathname)
     (defun compile-file-pathname (pathname)
       (make-pathname :defaults pathname :type "o"))))