diff --git a/ansi-tests/ensure-directories-exist.lsp b/ansi-tests/ensure-directories-exist.lsp
index 50e80433608a75b930c91e2cf85511ef491e7230..4bfa41003acd4866777cb05829fe34846b741f61 100644
--- a/ansi-tests/ensure-directories-exist.lsp
+++ b/ansi-tests/ensure-directories-exist.lsp
@@ -113,12 +113,12 @@
 ;; test is run
 (deftest ensure-directories-exist.8
   (let* ((subdir (make-pathname :directory '(:relative "scratch")
-				:defaults *default-pathname-defaults*)))
-    (assert (not (probe-file subdir)) ()
-	    "Delete subdirectory scratch!")
-    (let* ((pn (make-pathname :name "foo" :type "txt"
-			      :defaults subdir))
-	   (results nil)
+				:defaults *default-pathname-defaults*))
+	 (pn (make-pathname :name "foo" :type "txt"
+			    :defaults subdir)))
+    (assert (not (probe-file pn)) ()
+	    "Delete subdirectory scratch and its contents!")
+    (let* ((results nil)
 	   (verbosity
 	    (with-output-to-string
 	      (*standard-output*)