Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.122 -r1.123
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	12 Dec 2008 19:03:58 -0000	1.122
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	12 Dec 2008 19:33:15 -0000	1.123
@@ -1790,9 +1790,10 @@
     set sub [self]
     foreach e $args {
       append component_name .$e
-      if {![info exists component_index($component_name)]} {
+      if {![$sub exists component_index($component_name)]} {
 	return 0
       }
+      set sub [$sub set component_index($component_name)]
     }
     return 1
   }