Error when logging in

When logging in I just got this error:

Hook loginHook failed: 1
can't use invalid octal number as operand of "^"
    while executing
"expr {([string range [clock clicks] end-9 end] ^ $mypid) % 62}"
    (procedure "::tfileutils::tempfile" line 14)
    invoked from within
"::tfileutils::tempfile $this(tmpPath) """
    (procedure "MakeAndInsertHistory" line 25)
    invoked from within
"MakeAndInsertHistory $chattoken"
    (procedure "NewChat" line 18)
    invoked from within
"NewChat $threadID $jid"
    ("eval" body line 1)
    invoked from within
"eval {NewChat $threadID $jid} $args"
    (procedure "StartThread" line 39)
    invoked from within
"StartThread $jid"
    (procedure "BuildSavedDialogs" line 24)
    invoked from within
"BuildSavedDialogs"
    (procedure "::Chat::LoginHook" line 7)
    invoked from within
"::Chat::LoginHook"
    ("eval" body line 1)
    invoked from within
"eval $func $args"
can't use invalid octal number as operand of "^"
    while executing
"expr {([string range [clock clicks] end-9 end] ^ $mypid) % 62}"
    (procedure "::tfileutils::tempfile" line 14)
    invoked from within
"::tfileutils::tempfile $this(tmpPath) """
    (procedure "MakeAndInsertHistory" line 25)
    invoked from within
"MakeAndInsertHistory $chattoken"
    (procedure "NewChat" line 18)
    invoked from within
"NewChat $threadID $jid"

Followed by this error:

can't read "chatstate(presenceReg)": no such element in array
can't read "chatstate(presenceReg)": no such element in array
    while executing
"eval {::Jabber::Jlib presence_deregister_ex} $chatstate(presenceReg)"
    (procedure "DeregisterPresence" line 5)
    invoked from within
"DeregisterPresence $chattoken"
    (procedure "::Chat::OnDestroyThread" line 15)
    invoked from within
"::Chat::OnDestroyThread ::Chat::chat1"
    (command bound to event)