Index: openacs-4/packages/xowiki/tcl/folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/folder-procs.tcl,v
diff -u -r1.46 -r1.47
--- openacs-4/packages/xowiki/tcl/folder-procs.tcl	6 Apr 2018 16:06:32 -0000	1.46
+++ openacs-4/packages/xowiki/tcl/folder-procs.tcl	10 Apr 2018 06:52:09 -0000	1.47
@@ -720,7 +720,7 @@
     {cols 80}
   }
   menuentries instproc pretty_value {v} {
-    [:object] do_substitutions 0
+    ${:object} do_substitutions 0
     return "<pre class='code'>[string map [list & {&amp;} < {&lt;} > {&gt;}]  [:value]]</pre>"
   }
 }