Index: openacs-4/packages/categories/www/cadmin/tree-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-form.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/categories/www/cadmin/tree-form.tcl	23 Apr 2003 12:29:27 -0000	1.1
+++ openacs-4/packages/categories/www/cadmin/tree-form.tcl	27 Apr 2003 11:37:12 -0000	1.2
@@ -28,10 +28,7 @@
 }
 lappend context_bar $page_title
 
-set languages [db_list_of_lists get_ad_locales {
-    select label as name, locale as value
-    from ad_locales
-}]
+set languages [db_list_of_lists get_ad_locales ""]
 
 ad_form -name tree_form -action tree-form -export { locale object_id } -form {
     {tree_id:key}