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.535 -r1.536
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	23 Jul 2018 15:40:29 -0000	1.535
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	23 Jul 2018 15:42:22 -0000	1.536
@@ -775,8 +775,7 @@
       #
       # map a category item
       #
-      array set cm ${:__category_map}
-      return $cm($value)
+      return [dict get ${:__category_map} $value]
     } elseif {$map_type eq "party_id" && $value ne ""} {
       #
       # map a party_id