adium/adium

Replace this usage of OSAtomicCompareAndSwapPtrBarrier with dispatch_once, which should be more ARCceptable.
global HandyAdiumScripts
on run
tell application "Adium"
set c to count accounts
tell service "AIM"
set newAccount to make new account with properties {name:"test"}
end tell
if (count accounts) is not c + 1 then
--for some reason, I failed to make an account.
--no cleanup is necessary
error
end
delete newAccount
end tell
end run