diff --git a/gclload1.lsp b/gclload1.lsp
index fef7cef38d4e258a69f5fe3773c7e467117ff44c..22b1861b0dac2e63049aa4a20091aef067b7c346 100644
--- a/gclload1.lsp
+++ b/gclload1.lsp
@@ -15,12 +15,12 @@
 #+clisp (setq custom::*warn-on-floating-point-contagion* nil)
 
 ;;; Configure logical pathnames
-(setf (logical-pathname-translations "ansi-tests")
-      `(("aux;*.*" ,(merge-pathnames
-                     "auxiliary/"
-                     (make-pathname
-                      :directory
-                      (pathname-directory *load-truename*))))))
+(setf (logical-pathname-translations "ANSI-TESTS")
+      `(("AUX;*.*.*"
+         ,(merge-pathnames "auxiliary/"
+                           (make-pathname
+                            :directory
+                            (pathname-directory *load-truename*))))))
 
 (let (*load-verbose* *load-print* *compile-verbose* *compile-print*)
   (load "compile-and-load.lsp"))