username -> user-name

diff --git a/basis/unix/groups/groups.factor b/basis/unix/groups/groups.factor
index 41cd80f456ccf3e5f93c839600ee43fba51cefe8..164afa46fbb56c7d387d471db5da008962385693 100644 (file)
--- a/basis/unix/groups/groups.factor
+++ b/basis/unix/groups/groups.factor
@@ -71,7 +71,7 @@ M: string user-groups ( string -- seq )
     (user-groups) ; 
 
 M: integer user-groups ( id -- seq )
-    username (user-groups) ;
+    user-name (user-groups) ;
     
 : all-groups ( -- seq )
     [ getgrent dup ] [ group-struct>group ] [ drop ] produce ;