diff --git a/basis/unix/statfs/freebsd/freebsd.factor b/basis/unix/statfs/freebsd/freebsd.factor
index bd84aec444..6c5a45c4d2 100644
--- a/basis/unix/statfs/freebsd/freebsd.factor
+++ b/basis/unix/statfs/freebsd/freebsd.factor
@@ -26,7 +26,7 @@ TUPLE: freebsd-file-system-info < file-system-info
 bavail bfree blocks favail ffree ffiles
 bsize flag frsize fsid namemax ;
 
-: statfs>file-system-info ( struct -- statfs )
+M: freebsd >file-system-info ( struct -- statfs )
     [ \ freebsd-file-system-info new ] dip
     {
         [
@@ -49,4 +49,4 @@ bsize flag frsize fsid namemax ;
 M: freebsd file-system-info ( path -- byte-array )
     normalize-path
     "statvfs" <c-object> tuck statvfs io-error
-    statfs>file-system-info ;
+    >file-system-info ;
diff --git a/basis/unix/statfs/linux/linux.factor b/basis/unix/statfs/linux/linux.factor
index b938062e55..7a407da78b 100644
--- a/basis/unix/statfs/linux/linux.factor
+++ b/basis/unix/statfs/linux/linux.factor
@@ -13,7 +13,7 @@ TUPLE: linux-file-system-info < file-system-info
 type bsize blocks bfree bavail files ffree fsid
 namelen frsize spare ;
 
-: statfs>file-system-info ( struct -- statfs )
+M: linux >file-system-info ( struct -- statfs )
     [ \ linux-file-system-info new ] dip
     {
         [
@@ -36,4 +36,4 @@ namelen frsize spare ;
 M: linux file-system-info ( path -- byte-array )
     normalize-path
     "statfs64" <c-object> tuck statfs64 io-error
-    statfs>file-system-info ;
+    >file-system-info ;
diff --git a/basis/unix/statfs/macosx/macosx.factor b/basis/unix/statfs/macosx/macosx.factor
index 8e61d22d24..4bd9f55132 100644
--- a/basis/unix/statfs/macosx/macosx.factor
+++ b/basis/unix/statfs/macosx/macosx.factor
@@ -128,7 +128,7 @@ M: macosx mounted* ( -- array )
     [ *void* ] dip
     "statfs64" heap-size [ * memory>byte-array ] keep group ;
 
-: statfs64>file-system-info ( byte-array -- file-system-info )
+M: macosx >file-system-info ( byte-array -- file-system-info )
     [ \ macosx-file-system-info new ] dip
     {
         [
@@ -162,4 +162,4 @@ M: macosx mounted* ( -- array )
 M: macosx file-system-info ( path -- file-system-info )
     normalize-path
     "statfs64" <c-object> tuck statfs64 io-error
-    statfs64>file-system-info ;
+    >file-system-info ;
diff --git a/basis/unix/statfs/netbsd/netbsd.factor b/basis/unix/statfs/netbsd/netbsd.factor
index 6b89f5b394..dd1ccd4c9a 100644
--- a/basis/unix/statfs/netbsd/netbsd.factor
+++ b/basis/unix/statfs/netbsd/netbsd.factor
@@ -43,7 +43,7 @@ files ffree sync-reads sync-writes async-reads async-writes
 fsidx fsid namemax owner spare fstype mnotonname mntfromname
 file-system-type-name mount-from ;
 
-: statvfs>file-system-info ( byte-array -- netbsd-file-system-info )
+M: netbsd >file-system-info ( byte-array -- netbsd-file-system-info )
     [ \ netbsd-file-system-info new ] dip
     {
         [
@@ -75,4 +75,4 @@ file-system-type-name mount-from ;
 
 M: netbsd file-system-info
     normalize-path "statvfs" <c-object> tuck statvfs io-error 
-    statvfs>file-system-info ;
+    >file-system-info ;
diff --git a/basis/unix/statfs/openbsd/openbsd.factor b/basis/unix/statfs/openbsd/openbsd.factor
index b5b5a0468b..a64b60a078 100644
--- a/basis/unix/statfs/openbsd/openbsd.factor
+++ b/basis/unix/statfs/openbsd/openbsd.factor
@@ -26,7 +26,7 @@ TUPLE: openbsd-file-system-info < file-system-info
 bsize frsize blocks bfree bavail files ffree favail
 fsid flag namemax ;
 
-: statfs>file-system-info ( struct -- statfs )
+M: openbsd >file-system-info ( struct -- statfs )
     [ \ openbsd-file-system-info new ] dip
     {
         [
@@ -49,4 +49,4 @@ fsid flag namemax ;
 M: openbsd file-system-info ( path -- byte-array )
     normalize-path
     "statvfs" <c-object> tuck statvfs io-error
-    statfs>file-system-info ;
+    >file-system-info ;
diff --git a/core/io/files/files.factor b/core/io/files/files.factor
index 1f6a48b50e..cfb90d58a5 100644
--- a/core/io/files/files.factor
+++ b/core/io/files/files.factor
@@ -188,6 +188,9 @@ TUPLE: file-system-info mount-on free-space ;
 
 HOOK: file-system-info os ( path -- file-system-info )
 
+HOOK: >file-system-info os ( struct -- statfs )
+
+
 <PRIVATE
 
 HOOK: cd io-backend ( path -- )