diff --git a/files/file-error.lsp b/files/file-error.lsp
index 43ae76bf2a02521400c62c9f7c7176c6f77fa1b4..99b455048a83c406778d70c1450bfea1e41c6022 100644
--- a/files/file-error.lsp
+++ b/files/file-error.lsp
@@ -3,8 +3,6 @@
 ;;;; Created:  Tue Jan 13 19:10:02 2004
 ;;;; Contains: Tests of the FILE-ERROR condition, and associated accessor function
 
-
-
 (deftest file-error.1
   (let ((pn (make-pathname :name :wild
                            :type "txt"
@@ -21,37 +19,37 @@
   t t)
 
 (deftest file-error-pathname.1
-  (let ((c (make-condition 'file-error :pathname "scratch/foo.txt")))
+  (let ((c (make-condition 'file-error :pathname "foo.txt")))
     (values
      (notnot (typep c 'file-error))
      (eqlt (class-of c) (find-class 'file-error))
      (file-error-pathname c)))
-  t t "scratch/foo.txt")
+  t t "foo.txt")
 
 (deftest file-error-pathname.2
-  (let ((c (make-condition 'file-error :pathname #p"scratch/foo.txt")))
+  (let ((c (make-condition 'file-error :pathname #p"foo.txt")))
     (values
      (notnot (typep c 'file-error))
      (eqlt (class-of c) (find-class 'file-error))
-     (equalt #p"scratch/foo.txt" (file-error-pathname c))))
+     (equalt #p"foo.txt" (file-error-pathname c))))
   t t t)
 
 (deftest file-error-pathname.3
-  (let ((c (make-condition 'file-error :pathname "CLTEST:scratch/foo.txt")))
+  (let ((c (make-condition 'file-error :pathname "CLTEST:foo.txt")))
     (values
      (notnot (typep c 'file-error))
      (eqlt (class-of c) (find-class 'file-error))
-     (equalpt "CLTEST:scratch/foo.txt"
+     (equalpt "CLTEST:foo.txt"
               (file-error-pathname c))))
   t t t)
 
 (deftest file-error-pathname.4
   (let ((c (make-condition
-            'file-error :pathname (logical-pathname "CLTEST:scratch/foo.txt"))))
+            'file-error :pathname (logical-pathname "CLTEST:foo.txt"))))
     (values
      (notnot (typep c 'file-error))
      (eqlt (class-of c) (find-class 'file-error))
-     (equalpt (logical-pathname "CLTEST:scratch/foo.txt")
+     (equalpt (logical-pathname "CLTEST:foo.txt")
               (file-error-pathname c))))
   t t t)
 
@@ -81,6 +79,6 @@
 (deftest file-error-pathname.error.2
   (signals-error
    (file-error-pathname
-    (make-condition 'file-error :pathname "scratch/foo.txt")
+    (make-condition 'file-error :pathname "foo.txt")
     nil)
    program-error) t)
diff --git a/files/truename.lsp b/files/truename.lsp
index b6bd2d4bf041230c2899f6ead4923a7ba7a15622..a9bb6a1ed4d96f5ae1c7ea24453d55d69f7e7cb2 100644
--- a/files/truename.lsp
+++ b/files/truename.lsp
@@ -3,8 +3,6 @@
 ;;;; Created:  Tue Jan  6 05:32:37 2004
 ;;;; Contains: Tests of TRUENAME
 
-
-
 (deftest truename.1
   (let* ((pn #p"truename.txt")
          (tn (truename pn)))
@@ -55,7 +53,7 @@
   t nil t t)
 
 (deftest truename.5
-  (let* ((lpn "CLTEST:scratch/foo.txt")
+  (let* ((lpn "CLTEST:foo.txt")
          (pn (translate-logical-pathname lpn)))
     (unless (probe-file lpn)
       (with-open-file (s lpn :direction :output) (format s "Stuff~%")))