Forgot, the segfault is probably due to the version of tcl/tk I have running on OpenBSD. On Linux I get the following exception: key "forbidden" not known in dictionary key "forbidden" not known in dictionary while executing "dict get $xmppShort $errcode" (procedure "GetErrorStr" line 64) invoked from within "GetErrorStr $errcode $errmsg" (procedure "HandleErrorCode" line 11) invoked from within "HandleErrorCode $errcode $errmsg" (procedure "HighFinal" line 24) invoked from within "HighFinal $token $jlibname $status $errcode $errmsg" (procedure "::Login::HighLoginCB" line 11) invoked from within "::Login::HighLoginCB ::Login::high3 ::jlib::jlib1 error forbidden {Username or password not correct.}" ("uplevel" body line 1) invoked from within "uplevel #0 $state(-command) [list $jlibname $status $errcode $errmsg]" (procedure "finish" line 49) invoked from within "finish $jlibname $errcode $errmsg" (procedure "auth_cb" line 10) invoked from within "auth_cb ::jlib::jlib1 error {forbidden {Username or password not correct.}}" (in namespace inscope "::jlib::connect" script line 1) invoked from within "::namespace inscope ::jlib::connect auth_cb ::jlib::jlib1 error {forbidden {Username or password not correct.}}" ("uplevel" body line 1) invoked from within "uplevel #0 $cmd [list $jlibname $type $subiq]" (procedure "::jlib::invoke_iq_callback" line 5) invoked from within "::jlib::invoke_iq_callback ::jlib::jlib1 {::namespace inscope ::jlib::connect auth_cb} error {forbidden {Username or password not correct.}}" ("uplevel" body line 1) invoked from within "uplevel #0 $iqcmd($id) [list error $errspec]" (procedure "iq_handler" line 83) invoked from within "iq_handler $jlibname $xmldata" (procedure "::jlib::dispatcher" line 9) invoked from within "::jlib::dispatcher ::jlib::jlib1 {iq {id 1038 type error} 0 {} {{query {xmlns jabber:iq:auth} 0 {} {{username {} 0 You {}} {resource {} 0 Coccinella@s..." ("uplevel" body line 1) invoked from within "uplevel #0 $wrapper($id,parsecmd) [list $wrapper($id,tree,2)]" (procedure "::wrapper::elementend" line 41) invoked from within "::wrapper::elementend wrap1 iq -namespace urn:ietf:params:xml:ns:xmpp-stanzas" ("uplevel" body line 1) invoked from within "uplevel #0 $options(-elementendcommand) [list $tag] $empty $ns" invoked from within "ParseEvent:ElementClose $tag [array get options]" invoked from within "::sgml::parseEvent {{} {} {} {} iq {} { type="error" id="1038"} {} query {} { xmlns="jabber:iq:auth"} {} username {} {} You username / {} {} resource ..." ("eval" body line 1) invoked from within "eval ::sgml::parseEvent [list $tokenised] $parseOptions" (procedure "parse" line 60) invoked from within "parse xmlparser2 {YouCoccinella@sreYouCocc..." ("eval" body line 1) invoked from within "eval $classinfo(-parsecommand) [list $name] $args" (procedure "::xml::ParserCmd" line 46) invoked from within "::xml::ParserCmd xmlparser2 parse {YouCoccinella@sre