Index: openacs-4/packages/categories/www/cadmin/category-set-parent.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/Attic/category-set-parent.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/categories/www/cadmin/category-set-parent.tcl	5 Feb 2004 18:58:48 -0000	1.4
+++ openacs-4/packages/categories/www/cadmin/category-set-parent.tcl	8 Feb 2004 17:21:20 -0000	1.5
@@ -43,7 +43,7 @@
     util_unlist $category category_id category_name deprecated_p level
 
     if { [lsearch $subtree_categories_list $category_id]==-1 } {
-	set parent_url [export_vars -no_empty -base category-set-parent-2 [list [list parent_id $category_id] tree_id category_id locale object_id]]
+	set parent_url [export_vars -no_empty -base category-set-parent-2 { {parent_id $category_id} tree_id category_id locale object_id }]
     } else {
 	set parent_url ""
     }