Tksystray not working

petr@PRG000202:~/.tkabber$ wish
% package require Tray
0.1
% exit

petr@PRG000202:~/.tkabber$ cat config.tcl
# Language
#::msgcat::mclocale en
if {[file exists ~/.tkabber/lang.tcl]} {
    source ~/.tkabber/lang.tcl
}

# Some additional code
if {[file exists $rootdir/examples/badlop-config.tcl]} {
    source $rootdir/examples/badlop-config.tcl
}

# Configure here your own options
hook::add finload_hook {

    #               Type your Jabber account information

    #                           User:
    set ::loginconf1(user)         XXXXXX
    #                           Server:
    set ::loginconf1(server)       XXXXXX
    #                           Password:
    set ::loginconf1(password)     XXXXXX

    #       Save the file, close the editor and continue

    # Secondary account
    set ::loginconf2(user)         ----------
    set ::loginconf2(server)       ----------
    set ::loginconf2(password)     "---------"

    if {![info exists ::loginconf1(profile)]} {
        set ::loginconf1(profile)      "$::loginconf1(user) @ $::loginconf1(server)"
    }
    if {![info exists ::loginconf2(profile)]} {
        set ::loginconf2(profile)      "$::loginconf2(user) @ $::loginconf2(server)"
    }

    set ::loginconf(resource)      TkabberP
    set ::loginconf(usessl)        1

    array set ::loginconf          [array get ::loginconf1]

    set autologin 1

    emoteicons::load_dir ~/.tkabber/icq
}


proc postload {} {
# look-and-feel

    global alert colors alert_lvls

    set alert_lvls(error)        1
    set alert_lvls(server)       1
    set alert_lvls(message)      2
    set alert_lvls(mesg_to_user) 3
    set alert_colors             {Black DarkBlue Blue Red}

    set raise_new_tab            1

# the message module

    set message::options(headlines,cache)    1
    set message::options(headlines,multiple) 1
}
set systray 1
set font -adobe-helvetica-medium-r-normal-*-12-*-*-*-*-*-iso8859-2
set pixmaps_theme /usr/share/tkabber/pixmaps/gabber/
set load_default_xrdb 0
option readfile /home/petr/.tkabber/teopetuk.xrdb userDefault