Fix bug where the anti-flood queue might get "stuck".
Clean up the account.tcl script.