har problem med script! Er ikke c++ men ligner meget!

her er et tcl script som jeg skal have fundet en bug i:

proc ping_me_reply {nick uhost hand dest key arg} {
set dur [expr [unixtime] - $arg]
puthelp \"NOTICE $nick :Your ping reply took $dur seconds\"
return 0}

Det ligner noget c++/java! Derfor spørger jeg om der er nogen der kan fortælle mig hvad der er forkert i scriptet så er de 60 point scoret!

På forhånd tak!!!