Index: openacs-4/packages/categories/www/cadmin/tree-map.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-map.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/categories/www/cadmin/tree-map.tcl	6 Feb 2004 17:18:47 -0000	1.3
+++ openacs-4/packages/categories/www/cadmin/tree-map.tcl	9 Feb 2004 19:48:44 -0000	1.4
@@ -24,7 +24,7 @@
     permission::require_permission -object_id $tree_id -privilege category_tree_read
 }
 
-set context_bar [list [category::get_object_context $object_id] [list [export_vars -base one-object {locale object_id}]" "Category Management"] "Mapping Parameters"]
+set context_bar [list [category::get_object_context $object_id] [list [export_vars -no_empty -base one-object {locale object_id}]" "Category Management"] "Mapping Parameters"]
 
 if {$edit_p} {
     # parameters are edited, so get old data
@@ -54,7 +54,7 @@
 	category_tree::map -tree_id $tree_id -subtree_category_id $category_id -object_id $object_id -assign_single_p $assign_single_p -require_category_p $require_category_p
     }
 } -after_submit {
-    ad_returnredirect [export_vars -base one-object {locale object_id}]
+    ad_returnredirect [export_vars -no_empty -base one-object {locale object_id}]
     ad_script_abort
 }