Index: openacs-4/packages/categories/tcl/categories-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs.tcl,v
diff -u -r1.38.2.9 -r1.38.2.10
--- openacs-4/packages/categories/tcl/categories-procs.tcl	9 Oct 2020 15:37:59 -0000	1.38.2.9
+++ openacs-4/packages/categories/tcl/categories-procs.tcl	9 Oct 2020 15:47:52 -0000	1.38.2.10
@@ -315,12 +315,12 @@
     @return the category id or empty string if no category was found
     @author Lee Denison (lee@xarg.co.uk)
 } {
-    return [db_list get_category_id {
-        select object_id
-        from acs_objects
-        where title = :name
-        and object_type = 'category'
-    }]
+    return [db_string get_category_id {
+        select category_id
+        from category_translations
+        where name = :name
+        and locale = :locale
+    } -default ""]
 }
 
 ad_proc -public category::reset_translation_cache { } {
@@ -570,11 +570,11 @@
     @author Peter Kreuzinger (peter.kreuzinger@wu-wien.ac.at)
 } {
     return [db_string get_category_id {
-        select category_id
-        from category_translations
-        where name = :name
-        and locale = :locale
-    } -default ""]
+        select object_id
+        from acs_objects
+        where title = :title
+        and object_type = 'category'
+    }]
 }
 
 ad_proc -public category::get_object_context { object_id } {