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.361 -r1.362
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	22 May 2009 10:04:30 -0000	1.361
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	1 Jul 2009 09:12:42 -0000	1.362
@@ -2364,17 +2364,21 @@
                    -object_class ::xowiki::FormPage]
 
     if {!$use_hstore && $wc(tcl) ne "true"} {
+      # Make sure, that the expr method is available; 
+      # in xotcl 2.0 this will not be needed
+      ::xotcl::alias ::xowiki::FormPage expr -objscope ::expr
+      
       set init_vars $wc(vars)
       foreach p [$items children] {
         array set __ia $init_vars
         array set __ia [$p instance_attributes]
-        if {![$p eval expr $wc(tcl)]} {$items delete $p}
+        if {![$p expr $wc(tcl)]} {$items delete $p}
       }
     }
     return $items
   }
-
-  #
+  
+   #
   # begin property management
   #