diff --git a/basis/io/directories/directories-tests.factor b/basis/io/directories/directories-tests.factor
index b703421b45..19d6d8e548 100644
--- a/basis/io/directories/directories-tests.factor
+++ b/basis/io/directories/directories-tests.factor
@@ -187,3 +187,6 @@ IN: io.directories.tests
 [ ] [ "copy-destination" temp-file delete-tree ] unit-test
 
 [ ] [ "copy-tree-test" temp-file delete-tree ] unit-test
+
+[ ] [ "resource:deleteme" touch-file ] unit-test
+[ ] [ "resource:deleteme" delete-file ] unit-test
\ No newline at end of file
diff --git a/basis/io/directories/windows/windows.factor b/basis/io/directories/windows/windows.factor
index b02f8731f5..68c7a5bd07 100644
--- a/basis/io/directories/windows/windows.factor
+++ b/basis/io/directories/windows/windows.factor
@@ -32,7 +32,7 @@ ERROR: file-delete-failed path error ;
     ] [ drop ] if ;
 
 M: windows delete-file ( path -- )
-    normalize-path
+    absolute-path
     [ (delete-file) ]
     [ \ file-delete-failed boa rethrow ] recover ;