diff --git a/sample-files/file-error.txt b/file-error.txt
similarity index 100%
rename from sample-files/file-error.txt
rename to file-error.txt
diff --git a/files/file-error.lsp b/files/file-error.lsp
index 8fe3b48eaa28d9e1b0420c39b5ac3bc310502f8b..43ae76bf2a02521400c62c9f7c7176c6f77fa1b4 100644
--- a/files/file-error.lsp
+++ b/files/file-error.lsp
@@ -56,7 +56,7 @@
   t t t)
 
 (deftest file-error-pathname.5
-  (with-open-file (s "sample-files/file-error.txt" :direction :input)
+  (with-open-file (s "file-error.txt" :direction :input)
                   (let ((c (make-condition 'file-error :pathname s)))
                     (values
                      (notnot (typep c 'file-error))
@@ -65,7 +65,7 @@
   t t t)
 
 (deftest file-error-pathname.6
-  (let ((s (open "sample-files/file-error.txt" :direction :input)))
+  (let ((s (open "file-error.txt" :direction :input)))
     (close s)
     (let ((c (make-condition 'file-error :pathname s)))
       (values