Index: openacs-4/packages/categories/tcl/categories-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs-oracle.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/categories/tcl/categories-procs-oracle.xql	31 Jul 2006 20:31:11 -0000	1.3
+++ openacs-4/packages/categories/tcl/categories-procs-oracle.xql	18 Jun 2018 15:40:27 -0000	1.4
@@ -125,12 +125,6 @@
 </fullquery>
 
  
-<fullquery name="category::get_object_context.object_name">      
-      <querytext>
-      select acs_object.name(:object_id) from dual
-      </querytext>
-</fullquery>
-
 <fullquery name="category::map_object.insert_mapped_categories">      
       <querytext>
       
Index: openacs-4/packages/categories/tcl/categories-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/tcl/categories-procs-postgresql.xql,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/categories/tcl/categories-procs-postgresql.xql	19 May 2003 13:10:17 -0000	1.3
+++ openacs-4/packages/categories/tcl/categories-procs-postgresql.xql	18 Jun 2018 15:40:27 -0000	1.4
@@ -98,11 +98,4 @@
 </fullquery>
 
  
-<fullquery name="category::get_object_context.object_name">      
-      <querytext>
-            select acs_object__name(:object_id) 
-      </querytext>
-</fullquery>
-
- 
 </queryset>
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 -N -r1.33 -r1.34
--- openacs-4/packages/categories/tcl/categories-procs.tcl	9 May 2018 15:33:30 -0000	1.33
+++ openacs-4/packages/categories/tcl/categories-procs.tcl	18 Jun 2018 15:40:27 -0000	1.34
@@ -507,8 +507,7 @@
     @param object_id object_id to get the name of.
     @author Timo Hentschel (timo@timohentschel.de)
 } {
-    set object_name [db_string object_name ""]
-    return [list "/o/$object_id" $object_name]
+    return [list "/o/$object_id" [acs_object_name $object_id]]
 }
 
 ad_proc -deprecated category::indent_html { indent_width } {