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 {