diff --git a/core/io/pathnames/pathnames.factor b/core/io/pathnames/pathnames.factor
index f5a9e1f810..e58d19b7b1 100644
--- a/core/io/pathnames/pathnames.factor
+++ b/core/io/pathnames/pathnames.factor
@@ -221,7 +221,7 @@ HOOK: canonicalize-path-full io-backend ( path -- path' )
 
 M: object canonicalize-path-full canonicalize-path canonicalize-drive ;
 
-: >windows-path ( path -- path' ) H{ { CHAR: / CHAR: \\ } } substitute ;
+: >windows-path ( path -- path' ) H{ { char: / char: \\ } } substitute ;
 
 TUPLE: pathname string ;