From b238a1719f8fd0b01bffdc046dc1904651675d95 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Fri, 4 Sep 2009 09:08:04 -0500
Subject: [PATCH] io.backend.windows.nt.privileges: fix make-token-privileges

---
 basis/io/backend/windows/nt/privileges/privileges.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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 [