Index: openacs-4/packages/categories/tcl/categories-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs.tcl,v
diff -u -r1.38.2.12 -r1.38.2.13
--- openacs-4/packages/categories/tcl/categories-procs.tcl	9 Oct 2020 15:54:14 -0000	1.38.2.12
+++ openacs-4/packages/categories/tcl/categories-procs.tcl	8 Sep 2022 15:04:35 -0000	1.38.2.13
@@ -286,8 +286,7 @@
     @author Peter Kreuzinger (peter.kreuzinger@wu-wien.ac.at)
 } {
     if { $locale eq ""} {set locale [ad_conn locale]}
-    upvar $multirow mapped_categories
-    db_multirow mapped_categories select {
+    db_multirow $multirow select {
         select co.tree_id, aot.title, c.category_id, ao.title
           from category_object_map_tree co,
                categories c,