Code:

proc proc_rehash { nick uhost hand chan arg } {   set the_name [lindex [split $arg] 0]   if {[catch {uplevel #0 [list source scripts/$the_name.tcl]} error]} {      putquick "PRIVMSG $chan :Error While Loading $the_name -- Errormsg: $error"      putquick "PRIVMSG $chan :script: $the_name -- ::errorInfo: $::errorInfo"      return   }rehash   putquick "PRIVMSG $chan :script: <$the_name> -- Loaded Without Error.."}