ctcp commands

[ReaLz]

I'm trying to make a tcl script that can CTCP a user with a .ctcp command from the partyline,
I have written these:
bind dcc m ctcp ctcp_com
bind ctcr - PING ping_me_reply

proc ctcp_com {nick uhost hand arg} {
set arg [string toupper $arg]
if {$arg == "*PING*"} {
putlog "#$hand# CTCP to $nick PING"
putserv "PRIVMSG $nick :\001PING [unixtime]\001"
return 0
}
}
and when I'm trying to .ctcp me PING it says that:
[12:17] Tcl error [ctcp_com]: no value given for parameter "arg" to "ctcp_com"

[ppslim]

Note the type of bind you have used (DCC), and now note the tcl-command.doc information, regarding how many arguemtnts DCC procs use, and there contents.