diff --git a/basis/io/backend/windows/nt/privileges/privileges.factor b/basis/io/backend/windows/nt/privileges/privileges.factor
index 33577a9394..57878ba75b 100755
--- a/basis/io/backend/windows/nt/privileges/privileges.factor
+++ b/basis/io/backend/windows/nt/privileges/privileges.factor
@@ -30,8 +30,8 @@ TYPEDEF: TOKEN_PRIVILEGES* PTOKEN_PRIVILEGES
 
 : make-token-privileges ( name ? -- obj )
     "TOKEN_PRIVILEGES" <c-object>
-    1 [ over set-TOKEN_PRIVILEGES-PrivilegeCount ] keep
-    "LUID_AND_ATTRIBUTES" malloc-array &free
+    1 over set-TOKEN_PRIVILEGES-PrivilegeCount
+    "LUID_AND_ATTRIBUTES" malloc-object &free
     over set-TOKEN_PRIVILEGES-Privileges
 
     swap [