diff --git a/src/code/filesys.lisp b/src/code/filesys.lisp
index ee844e3f76cbd716f352901c2df118ffdba5bc44..fe997a7c7a7bdde96d3504d2365893e1bbd69cfc 100644
--- a/src/code/filesys.lisp
+++ b/src/code/filesys.lisp
@@ -735,11 +735,10 @@
 	  (etypecase piece
 	    (simple-string
 	     (let ((head (concatenate 'string head piece)))
-	       (with-directory-node-noted (head)
-		 (%enumerate-directories (concatenate 'string head "/")
-					 (cdr tail) pathname
-					 verify-existence follow-links
-					 nodes function))))
+	       (%enumerate-directories (concatenate 'string head "/")
+				       (cdr tail) pathname
+				       verify-existence follow-links
+				       nodes function)))
 	    ((member :wild-inferiors)
 	     (%enumerate-directories head (rest tail) pathname
 				     verify-existence follow-links