make directory work inside with-directory

core/io/backend/backend.factor

@@ -17,10 +17,10 @@ HOOK: io-multiplex io-backend ( ms -- )
 
 HOOK: normalize-directory io-backend ( str -- newstr )
 
-M: object normalize-directory ;
-
 HOOK: normalize-pathname io-backend ( str -- newstr )
 
+M: object normalize-directory normalize-pathname ;
+
 : set-io-backend ( io-backend -- )
     io-backend set-global init-io init-stdio ;
 

core/io/files/files-tests.factor

@@ -83,6 +83,12 @@ io.encodings.utf8 ;
     "delete-tree-test" temp-file delete-tree
 ] unit-test
 
+[ { { "kernel" t } } ] [
+    "core" resource-path [
+        "." directory [ first "kernel" = ] subset
+    ] with-directory
+] unit-test
+
 [ ] [
     "copy-tree-test/a/b/c" temp-file make-directories
 ] unit-test