diff --git a/test/test-encodings.script b/test/test-encodings.script
index 795a6afc1ca3d4f179bd48d228c03a513200c4dd..04fb418dc05c90cd6c832c621117f9e54560b54c 100644
--- a/test/test-encodings.script
+++ b/test/test-encodings.script
@@ -1,5 +1,5 @@
 ;;; -*- Lisp -*-
-
+(in-package :asdf-test)
 (defparameter *lambda-string* nil)
 
 (defun string-char-codes (s)
@@ -66,7 +66,7 @@
       (list *asdf-directory* ;; be sure that *OUR* asdf is first of any possible ASDF
             *uiop-directory* ;; be sure that ouir uiop is there, too.
             ;; try finding asdf-encodings it right next to asdf.
-            (subpathname *asdf-directory* "../asdf-encodings/")))
+            (subpathname *asdf-directory* "ext/asdf-encodings/")))
 (unless (find-system :asdf-encodings nil)
   ;; try harder by enabling the user's source-registry
   (initialize-source-registry ""))