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.81 -r1.82
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	24 Jun 2008 09:48:41 -0000	1.81
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	27 Jun 2008 08:50:46 -0000	1.82
@@ -981,7 +981,7 @@
       array set wc [::xowiki::FormPage filter_expression $where &&]
       set init_vars [concat $init_vars $wc(vars)]
     }
-    
+    set options [list]    
     set items [::xowiki::FormPage get_children \
                    -base_item_id [$form_obj item_id] \
                    -form_fields [list] \
Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.253 -r1.254
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	20 Jun 2008 21:40:20 -0000	1.253
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	27 Jun 2008 08:50:46 -0000	1.254
@@ -1094,7 +1094,7 @@
 
 
   Page instproc adp_subst {content} {
-    #my log "--adp_subst in [my name]"
+    #my msg "--adp_subst in [my name] vars=[my info vars]"
     set __ignorelist [list RE __defaults name_method object_type_key db_slot]
     foreach __v [my info vars] {
       if {[info exists $__v]} continue
@@ -1993,7 +1993,7 @@
   }
 
   FormPage instproc get_value {before varname} {
-    #my msg "varname=$varname"
+    #my msg "varname=$varname, val=[my property $varname]"
     set value [my property $varname]
 
     # todo: might be more efficient to check, if it exists already