Index: openacs-4/packages/acs-tcl/tcl/object-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-procs-oracle.xql,v
diff -u -N
--- openacs-4/packages/acs-tcl/tcl/object-procs-oracle.xql	6 Feb 2005 18:30:36 -0000	1.6
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,36 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-   <rdbms><type>oracle</type><version>8.1.6</version></rdbms>
-
-<fullquery name="acs_object_name.object_name_get">      
-      <querytext>
-      
-	select acs_object.name(:object_id) from dual
-    
-      </querytext>
-</fullquery>
-
-<fullquery name="acs_object::get.select_object">      
-      <querytext>
-
-        select o.object_id,
-               o.title,
-               o.package_id,
-               o.object_type,
-               o.context_id,
-               o.security_inherit_p,
-               o.creation_user,
-               to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date_ansi,
-               o.creation_ip,
-               to_char(o.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified_ansi,
-               o.modifying_user,
-               o.modifying_ip,
-               acs_object.name(o.object_id) as object_name
-        from   acs_objects o
-        where  o.object_id = :object_id
-    
-      </querytext>
-</fullquery>
- 
-</queryset>
Index: openacs-4/packages/acs-tcl/tcl/object-procs-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-procs-postgresql.xql,v
diff -u -N
--- openacs-4/packages/acs-tcl/tcl/object-procs-postgresql.xql	7 Aug 2017 23:47:59 -0000	1.6
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,36 +0,0 @@
-<?xml version="1.0"?>
-
-<queryset>
-   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
-
-<fullquery name="acs_object_name.object_name_get">      
-      <querytext>
-
-        select acs_object__name(:object_id);
-    
-      </querytext>
-</fullquery>
-
-<fullquery name="acs_object::get.select_object">      
-      <querytext>
-
-        select o.object_id,
-               o.title,
-               o.package_id,
-               o.object_type,
-               o.context_id,
-               o.security_inherit_p,
-               o.creation_user,
-               to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date_ansi,
-               o.creation_ip,
-               to_char(o.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified_ansi,
-               o.modifying_user,
-               o.modifying_ip,
-               acs_object__name(o.object_id) as object_name
-        from   acs_objects o
-        where  o.object_id = :object_id
-
-      </querytext>
-</fullquery>
-
-</queryset>
Index: openacs-4/packages/acs-tcl/tcl/object-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/object-procs.tcl,v
diff -u -N -r1.14 -r1.14.2.1
--- openacs-4/packages/acs-tcl/tcl/object-procs.tcl	21 Mar 2018 08:53:23 -0000	1.14
+++ openacs-4/packages/acs-tcl/tcl/object-procs.tcl	3 Sep 2019 11:45:14 -0000	1.14.2.1
@@ -52,7 +52,9 @@
     Returns the name of an object.
 
 } {
-    return [db_string object_name_get {}]
+    return [db_string object_name_get {
+        select acs_object.name(:object_id) from dual
+    }]
 }
 
 ad_proc -public acs_object_type { object_id } {
@@ -80,7 +82,23 @@
     @param array An array in the caller's namespace into which the info should be delivered (upvared)
 } {
     upvar 1 $array row
-    db_1row select_object {} -column_array row
+    db_1row select_object {
+        select o.object_id,
+               o.title,
+               o.package_id,
+               o.object_type,
+               o.context_id,
+               o.security_inherit_p,
+               o.creation_user,
+               to_char(o.creation_date, 'YYYY-MM-DD HH24:MI:SS') as creation_date_ansi,
+               o.creation_ip,
+               to_char(o.last_modified, 'YYYY-MM-DD HH24:MI:SS') as last_modified_ansi,
+               o.modifying_user,
+               o.modifying_ip,
+               acs_object.name(o.object_id) as object_name
+        from   acs_objects o
+        where  o.object_id = :object_id
+    } -column_array row
 }
 
 ad_proc -public acs_object::package_id {