Index: openacs-4/packages/categories/tcl/widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/widget-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/categories/tcl/widget-procs.tcl	23 Aug 2005 15:49:50 -0000	1.17
+++ openacs-4/packages/categories/tcl/widget-procs.tcl	8 Nov 2005 15:48:10 -0000	1.18
@@ -79,6 +79,8 @@
 
     if { ![empty_string_p $object_id] && ![info exists element(submit)] } {
         set mapped_categories [category::get_mapped_categories $object_id]
+    } elseif { ![empty_string_p $element(values)] && ![info exists element(submit)] } {
+	set mapped_categories $element(values)
     } else {
 	set mapped_categories [ns_querygetall $element(id)]
 	# QUIRK: ns_querygetall returns a single-element list {{}} for no values