set cmd [list tclsh $directory/dictionary-manager]
if {$debug} { lappend cmd --debug-server }
lappend cmd --remote-server-1 $directory $dictdir
switch -glob $userhost {
{} { }
{* *} { set cmd $userhost }
set cmd [list tclsh $directory/dictionary-manager]
if {$debug} { lappend cmd --debug-server }
lappend cmd --remote-server-1 $directory $dictdir
switch -glob $userhost {
{} { }
{* *} { set cmd $userhost }