Configure inetd to call an executable ksh script instead of your Tcl script. The ksh script then initializes the environment and calls your Tcl script.
#!/usr/bin/ksh
export QUOVADX_INSTALL_DIR=/hci/qdx5.3
eval `/hci/qdx5.3/integrator/sbin/hcisetenv -root ksh /hci/qdx5.3/integrator prod`
/hci/qdx5.3/integrator/bin/hcitcl /hci/cswp/src/scooter_server.tcl $*
Hope that gets it for ya.
Jonathan
