Undo my ill-conceived fix for command line quoting in *tb_compat.tcl

node.tcl: Fix the quoting of the -dir argument for the program agent
(yeah, I know what you are thinking; but I am just mimicing what is
already done in sim.tcl::make_event)

tbsetup/ns2ir/node.tcl

@@ -559,7 +559,7 @@ Node instproc program-agent {args} {
     set curprog [new Program [$self set sim]]
     $curprog set node $self
     $curprog set command $(-command)
-    $curprog set dir $(-dir)
+    $curprog set dir "{$(-dir)}"
     $curprog set expected-exit-code $(-expected-exit-code)
     if {$(-timeout) != {}} {
 	set to [::GLOBALS::reltime-to-secs $(-timeout)]

tbsetup/ns2ir/nstb_compat.tcl

@@ -118,7 +118,7 @@ proc tb-set-node-startcmd {node command} {
 	perror "\[tb-set-node-startcmd] $node is not a node."
 	return
     }
-    set command "{($command ; /usr/local/etc/emulab/startcmddone \$?)}"
+    set command "($command ; /usr/local/etc/emulab/startcmddone \$?)"
     set newprog [$node start-command $command]
 
     return $newprog

tbsetup/ns2ir/tb_compat.tcl.in

@@ -989,7 +989,7 @@ proc tb-set-node-startcmd {node command} {
 	perror "\[tb-set-node-startcmd] $node is not a node."
 	return
     }
-    set command "{($command ; /usr/local/etc/emulab/startcmddone \$?)}"
+    set command "($command ; /usr/local/etc/emulab/startcmddone \$?)"
     set newprog [$node start-command $command]
 
     return $newprog