diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index db0d2da1ef..cf87506bf9 100755
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -324,7 +324,7 @@ TUPLE: pathname string ;
 
 C: <pathname> pathname
 
-M: pathname <=> [ pathname-string ] compare ;
+M: pathname <=> [ string>> ] compare ;
 
 ! Home directory
 HOOK: home os ( -- dir )