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.2.4 -r1.14.2.5
--- openacs-4/packages/acs-tcl/tcl/object-procs.tcl	18 May 2020 21:20:20 -0000	1.14.2.4
+++ openacs-4/packages/acs-tcl/tcl/object-procs.tcl	6 Mar 2021 16:58:14 -0000	1.14.2.5
@@ -68,17 +68,28 @@
 
 ad_proc -public acs_object::get { 
     {-object_id:required}
-    {-array:required}
+    {-array}
+    {-element}
 } {
     Gets information about an acs_object.
 
-    Returns object_id, package_id, object_type, context_id, security_inherit_p, 
-    creation_user, creation_date_ansi, creation_ip, last_modified_ansi,
-    modifying_user, modifying_ip, tree_sortkey,  object_name
+    If called without "-element", it returns a dict containing
+    object_id, package_id, object_type, context_id,
+    security_inherit_p, creation_user, creation_date_ansi,
+    creation_ip, last_modified_ansi, modifying_user, modifying_ip,
+    tree_sortkey, object_name.
 
+    If called with "-element" it returns the denoted element (similar
+    to e.g. "party::get").
+    
     @param array An array in the caller's namespace into which the info should be delivered (upvared)
+    @param element to be returned
+    @param object_id for which the information should be retrieved
+    @error when object_id does not exist
 } {
-    upvar 1 $array row
+    if {[info exists array]} {
+        upvar 1 $array row
+    }
     db_1row select_object {
         select o.object_id,
                o.title,
@@ -96,6 +107,12 @@
         from   acs_objects o
         where  o.object_id = :object_id
     } -column_array row
+
+    if {[info exists element]} {
+        return [dict get [array get row] $element]
+    } else {
+        return [array get row]
+    }
 }
 
 ad_proc -public acs_object::package_id {
@@ -142,8 +159,7 @@
 
     @see acs_object::get
 } {
-    acs_object::get -object_id $object_id -array row
-    return $row($element)
+    return [acs_object::get -object_id $object_id -element $element]
 }
 
 ad_proc -public acs_object::object_p {