diff --git a/basis/io/windows/files/files.factor b/basis/io/windows/files/files.factor
index be8d131158..e4fe0fbc63 100644
--- a/basis/io/windows/files/files.factor
+++ b/basis/io/windows/files/files.factor
@@ -251,6 +251,7 @@ total-bytes total-free-bytes ;
 
 M: winnt file-system-info ( path -- file-system-info )
     normalize-path
+    dup file-info directory? [ parent-directory ] unless
     "ULARGE_INTEGER" <c-object>
     "ULARGE_INTEGER" <c-object>
     "ULARGE_INTEGER" <c-object>