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.542.2.118 -r1.542.2.119
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	31 Oct 2021 19:07:54 -0000	1.542.2.118
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	6 Nov 2021 14:33:05 -0000	1.542.2.119
@@ -4564,7 +4564,7 @@
         $p set __ia [dict merge $init_vars [$p instance_attributes]]
 
         if {$wc(tcl) != "true"} {
-          if {![nsf::directdispatch $p -frame object expr $wc(tcl)]} {
+          if {![nsf::directdispatch $p -frame object ::expr $wc(tcl)]} {
             #:msg "check $wc(tcl) [$p name] => where DELETE"
             $items delete $p
             continue