Bug 155805 doeditcheckin.cgi still has an unported TCL line(!!)

r=justdave

webtools/bonsai/doeditcheckin.cgi

@@ -39,7 +39,7 @@ my $busted = 0;
 my $info;
 
 if (!exists $::FORM{'id'}) {
-    set busted 1
+    $busted = 1;
 } else {
     $info = eval("\\%" . $::FORM{'id'});