#include <tcl.h>           <----------- I included tcl.h like it said in the man page

button .left -text "Left" -command "runsetpwc y 7000"
button .right -text "Right" -command "runsetpwc y -7000"
button .up -text "Up" -command "runsetpwc z 2500"
button .down -text "Down" -command "runsetpwc z -3000"
button .centertilt -text "Center Tilt" -command "runsetpwc t 0"
button .centerpan  -text "Center Pan" -command "runsetpwc t 1"

pack .left -side left
pack .right -side right
pack .up -side top
pack .down -side bottom
pack .centerpan .centertilt

proc runsetpwc {n a} {
        catch {exec /usr/bin/setpwc/setpwc -$n $a} var
        Tcl_Sleep(1000)             <---------------------------- Now I called it like it said
        loadxawtv
}

proc loadxawtv {} {
        catch {exec camorama} var
}


when the script is run it gives me the error invalid command name Tcl_Sleep(1000)