diff --git a/extra/shapefiles/shapefiles.factor b/extra/shapefiles/shapefiles.factor
index 49a85d1438..fe33b05b7d 100644
--- a/extra/shapefiles/shapefiles.factor
+++ b/extra/shapefiles/shapefiles.factor
@@ -167,10 +167,10 @@ TUPLE: record number content-length shape ;
 : read-records ( -- records )
     [ read-record dup ] [ ] produce nip ;
 
-: read-shp ( -- header shapes )
+: read-shp ( -- header records )
     read-header read-records ;
 
-: file>shp ( path -- header shapes )
+: file>shp ( path -- header records )
     binary [ read-shp ] with-file-reader ;
 
 TUPLE: index offset content-length ;