Index: openacs-4/packages/categories/www/cadmin/master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/master.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/categories/www/cadmin/master.tcl	2 Feb 2008 13:50:17 -0000	1.6
+++ openacs-4/packages/categories/www/cadmin/master.tcl	16 Apr 2008 10:27:12 -0000	1.7
@@ -7,16 +7,17 @@
 }
 
 if {![exists_and_not_null locale]} {
-    set locale [ad_parameter DefaultLocale acs-lang "en_US"]
+    #set locale [ad_parameter DefaultLocale acs-lang "en_US"]
     set locale [ad_conn locale]
 }
 
 set languages [lang::system::get_locale_options]
-
 set vars_to_export_list {tree_id category_id}
 
 set set_id [ad_conn form]
-set varname_list [ad_ns_set_keys -exclude {locale form:mode form:id __confirmed_p __refreshing_p formbutton:ok} $set_id]
+set varname_list [ad_ns_set_keys -exclude {
+  tree_id category_id locale form:mode form:id __confirmed_p __refreshing_p formbutton:ok
+} $set_id]
 
 foreach name $varname_list {
     set $name [ns_set get $set_id $name]