--- languages/tcl/t/cmd_array.t.old	2005-08-16 21:50:26.009251792 +1000
+++ languages/tcl/t/cmd_array.t	2005-08-16 21:52:21.908632408 +1000
@@ -144,9 +144,6 @@
 can't set "a(1)": variable isn't array
 OUT
 
-TODO: {
- local $TODO = "unimplemented";
-
 language_output_is("tcl",<<'TCL',<<'OUT',"array get");
   array set a [list a b]
   puts [array get a]
@@ -185,4 +182,3 @@
 TCL
 wrong # args: should be "array get arrayName ?pattern?"
 OUT
-}