diff --git a/basis/io/unix/files/files-tests.factor b/basis/io/unix/files/files-tests.factor index 28c25c0964..5a24c1314a 100644 --- 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 7f3aa9ae98..c3af9cc83d 100644 --- 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" tuck 1024 + "group" tuck 4096 [ ] keep f ; M: integer group-struct ( id -- group )