acl write and admin rights

[-misterX-]

i got this code it should create an acl group but it doesn't, i gave it the admin rights but when i try to use the function it remove itslef from the acl..

function addACLGroupObject ( thePlayer, commandName, groupName) 
    local ourGroup = aclGetGroup ( groupName ) 
    -- if there is no previous group with this name, we need to create one 
    if not ourGroup then 
        ourGroup = aclCreateGroup ( groupName ) 
    end 
     -- and finally let's add the object to it's group 
    account = getPlayerAccount(source) 
    accountN = getAccountName(account) 
    aclGroupAddObject ( ourGroup, accountN ) 
    -- don't forget to save the ACL after it has been modified 
    aclSave () 
end 
addCommandHandler ( "creategang", addACLGroupObject ) 

[Vision]

function addACLGroupObject ( thePlayer, commandName, groupName) 
    local ourGroup = aclGetGroup ( groupName ) 
    -- if there is no previous group with this name, we need to create one 
    if not ourGroup then 
        ourGroup = aclCreateGroup ( groupName ) 
    end 
     -- and finally let's add the object to it's group 
    account = getPlayerAccount(thePlayer) 
    accountN = getAccountName(account) 
    aclGroupAddObject ( ourGroup, 'user.'..accountN ) 
    -- don't forget to save the ACL after it has been modified 
    aclSave () 
end 
addCommandHandler ( "creategang", addACLGroupObject ) 

[-misterX-]

it works but it doesn't add the object any help??