diff --git a/sample-files/ensure-directories-exist.txt b/ensure-directories-exist.txt
similarity index 100%
rename from sample-files/ensure-directories-exist.txt
rename to ensure-directories-exist.txt
diff --git a/files/ensure-directories-exist.lsp b/files/ensure-directories-exist.lsp
index 2809b59326e1368d0e8eb57dc24bfcdd97c865d5..0396af237971bba46ab8fa0f6487fc859305de92 100644
--- a/files/ensure-directories-exist.lsp
+++ b/files/ensure-directories-exist.lsp
@@ -1,10 +1,10 @@
-;-*- Mode:     Lisp -*-
+n;-*- Mode:     Lisp -*-
 ;;;; Author:   Paul Dietz
 ;;;; Created:  Mon Jan  5 20:53:03 2004
 ;;;; Contains: Tests of ENSURE-DIRECTORIES-EXIST
 
 (deftest ensure-directories-exist.1
-  (let* ((pn (make-pathname :name "sample-files/ensure-directories-exist.txt"
+  (let* ((pn (make-pathname :name "ensure-directories-exist.txt"
                             :defaults *default-pathname-defaults*))
          (results nil)
          (verbosity
@@ -20,7 +20,7 @@
 
 (deftest ensure-directories-exist.2
   (with-open-file
-   (s "sample-files/ensure-directories-exist.txt" :direction :input)
+   (s "ensure-directories-exist.txt" :direction :input)
    (let* ((results (multiple-value-list (ensure-directories-exist s))))
      (values
       (length results)
@@ -29,7 +29,7 @@
    2 t nil)
 
 (deftest ensure-directories-exist.3
-  (let ((s (open "sample-files/ensure-directories-exist.txt" :direction :input)))
+  (let ((s (open "ensure-directories-exist.txt" :direction :input)))
     (close s)
     (let* ((results (multiple-value-list (ensure-directories-exist s))))
       (values
@@ -39,7 +39,7 @@
    2 t nil)
 
 (deftest ensure-directories-exist.4
-  (let* ((pn (make-pathname :name "sample-files/ensure-directories-exist.txt"
+  (let* ((pn (make-pathname :name "ensure-directories-exist.txt"
                             :defaults *default-pathname-defaults*))
          (results nil)
          (verbosity
@@ -55,7 +55,7 @@
   2 t nil "")
 
 (deftest ensure-directories-exist.5
-  (let* ((pn (make-pathname :name "sample-files/ensure-directories-exist.txt"
+  (let* ((pn (make-pathname :name "ensure-directories-exist.txt"
                             :defaults *default-pathname-defaults*))
          (results nil)
          (verbosity
@@ -71,7 +71,7 @@
   2 t nil "")
 
 (deftest ensure-directories-exist.6
-  (let* ((pn (make-pathname :name "sample-files/ensure-directories-exist.txt"
+  (let* ((pn (make-pathname :name "ensure-directories-exist.txt"
                             :defaults *default-pathname-defaults*))
          (results nil)
          (verbosity
@@ -88,7 +88,7 @@
   2 t nil "")
 
 (deftest ensure-directories-exist.7
-  (let* ((pn (make-pathname :name "sample-files/ensure-directories-exist.txt"
+  (let* ((pn (make-pathname :name "ensure-directories-exist.txt"
                             :defaults *default-pathname-defaults*))
          (results nil)
          (verbosity
@@ -140,7 +140,7 @@
 
 (deftest ensure-directories-exist.9
   (do-special-strings
-   (str "sample-files/ensure-directories-exist.txt" nil)
+   (str "ensure-directories-exist.txt" nil)
    (let* ((results (multiple-value-list (ensure-directories-exist str))))
      (assert (eql (length results) 2))
      (assert (equalt (truename (first results)) (truename str)))