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 -N -r1.357 -r1.358
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	30 Apr 2009 09:02:05 -0000	1.357
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	30 Apr 2009 09:06:38 -0000	1.358
@@ -2440,6 +2440,8 @@
     array set wc [::xowiki::FormPage filter_expression [my adp_subst $value] &&]
     #my log "wc= [array get wc]"
     set init_vars $wc(vars)
+    array set __ia $init_vars
+    array set __ia [$p instance_attributes]
     #my log "expr $wc(tcl) returns => [expr $wc(tcl)]"
     return [expr $wc(tcl)]
   }