diff --git a/t/cmd_foreach.t b/t/cmd_foreach.t
index 6eaa264..e3e4188 100755
--- a/t/cmd_foreach.t
+++ b/t/cmd_foreach.t
@@ -1,8 +1,8 @@
 # Copyright (C) 2004-2008, The Parrot Foundation.
 
 source lib/test_more.tcl
-# 16, but 2 are skipped.
-plan 14
+# 16, but 1 is skipped.
+plan 15
 
 eval_is {foreach} \
   {wrong # args: should be "foreach varList list ?varList list ...? command"} \
@@ -16,13 +16,11 @@ eval_is {foreach {} {a b c} {puts foo}} \
   {foreach varlist is empty} \
   {empty varList}
 
-if 0 { # XXX drastic TODO
 eval_is {
     array set a {}
     foreach a {1 2 3 4} {puts $a}
 } {can't set "a": variable is array} \
   {couldn't set loop variable}
-}
 
 unset -nocomplain a
 is [foreach a {1 2 3 4} {set a}] {} {return value}