From 922e1f4371a23ca857c1a162849e3b2a7378c17f Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Fri, 29 Aug 2008 17:09:19 -0500
Subject: [PATCH] new accessors

---
 core/io/files/files.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 )