largert group buffer, openbsd apparently keeps the microseconds in their file timesta...

diff --git a/basis/io/unix/files/files-tests.factor b/basis/io/unix/files/files-tests.factor
index 28c25c0964580175a2a68afca94117d7d403f7aa..5a24c1314a6b3c12902d876f0931358b473907eb 100644 (file)
--- a/basis/io/unix/files/files-tests.factor
+++ b/basis/io/unix/files/files-tests.factor
@@ -92,7 +92,7 @@ prepare-test-file
     test-file now
     [ set-file-access-time ] 2keep
     [ file-info accessed>> ]
-    [ [ truncate >integer ] change-second ] bi* =
+    [ [ [ truncate >integer ] change-second ] bi@ ] bi* =
 ] unit-test
 
 [ t ]
@@ -100,7 +100,7 @@ prepare-test-file
     test-file now
     [ set-file-modified-time ] 2keep
     [ file-info modified>> ]
-    [ [ truncate >integer ] change-second ] bi* =
+    [ [ [ truncate >integer ] change-second ] bi@ ] bi* =
 ] unit-test
 
 [ t ]

diff --git a/basis/unix/groups/groups.factor b/basis/unix/groups/groups.factor
index 7f3aa9ae98dc3525c88fc295d6478770c3638750..c3af9cc83dd92449a1d8deba3f4ae3fdeaac9923 100644 (file)
--- a/basis/unix/groups/groups.factor
+++ b/basis/unix/groups/groups.factor
@@ -26,7 +26,7 @@ GENERIC: group-struct ( obj -- group )
     ] [ ] produce nip ;
 
 : (group-struct) ( id -- group-struct id group-struct byte-array length void* )
-    "group" <c-object> tuck 1024
+    "group" <c-object> tuck 4096
     [ <byte-array> ] keep f <void*> ;
 
 M: integer group-struct ( id -- group )