diff --git a/basis/io/files/info/info.factor b/basis/io/files/info/info.factor
index 10a4121289..38e807b02a 100644
--- a/basis/io/files/info/info.factor
+++ b/basis/io/files/info/info.factor
@@ -5,7 +5,7 @@ vocabs vocabs.loader io.files.types math ;
 IN: io.files.info
 
 ! File info
-TUPLE: file-info type size size-on-disk permissions created modified
+TUPLE: file-info-tuple type size size-on-disk permissions created modified
 accessed ;
 
 HOOK: file-info os ( path -- info )
@@ -20,7 +20,7 @@ HOOK: link-info os ( path -- info )
 ! File systems
 HOOK: file-systems os ( -- array )
 
-TUPLE: file-system-info device-name mount-point type
+TUPLE: file-system-info-tuple device-name mount-point type
 available-space free-space used-space total-space ;
 
 HOOK: file-system-info os ( path -- file-system-info )
diff --git a/basis/io/files/info/unix/unix.factor b/basis/io/files/info/unix/unix.factor
index 4646d360f4..23f8103822 100644
--- a/basis/io/files/info/unix/unix.factor
+++ b/basis/io/files/info/unix/unix.factor
@@ -9,7 +9,7 @@ unix.groups unix.stat unix.time unix.users vocabs ;
 IN: io.files.info.unix
 SPECIALIZED-ARRAY: timeval
 
-TUPLE: unix-file-system-info < file-system-info
+TUPLE: unix-file-system-info < file-system-info-tuple
 block-size preferred-block-size
 blocks blocks-free blocks-available
 files files-free files-available
@@ -48,7 +48,7 @@ M: unix file-system-info
     [ file-system-statvfs statvfs>file-system-info ] bi
     file-system-calculations ;
 
-TUPLE: unix-file-info < file-info uid gid dev ino
+TUPLE: unix-file-info < file-info-tuple uid gid dev ino
 nlink rdev blocks blocksize ;
 
 HOOK: new-file-info os ( -- file-info )
@@ -115,7 +115,7 @@ GENERIC# file-mode? 1 ( obj mask -- ? )
 
 M: integer file-mode? mask? ;
 M: string file-mode? [ stat-mode ] dip mask? ;
-M: file-info file-mode? [ permissions>> ] dip mask? ;
+M: file-info-tuple file-mode? [ permissions>> ] dip mask? ;
 
 PRIVATE>