Index: openacs-4/packages/acs-object-management/tcl/object-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/tcl/object-procs.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-object-management/tcl/object-procs.tcl	27 Nov 2009 00:38:50 -0000	1.4
+++ openacs-4/packages/acs-object-management/tcl/object-procs.tcl	10 Dec 2009 22:41:59 -0000	1.5
@@ -191,8 +191,7 @@
     -object_view:required
 } {
 } {
-    set object_id [template::element::get_value $object_view \
-                      [template::element::get_value $object_view __key]]
+    set object_id [template::element::get_value $object_view ${object_view}_id]
 
     form::get_attributes \
         -object_view $object_view \
@@ -371,8 +370,7 @@
     -object_view:required
 } {
 } {
-    set object_id [template::element::get_value $object_view \
-                      [template::element::get_value $object_view __key]]
+    set object_id [template::element::get_value $object_view ${object_view}_id]
 
     form::get_attributes \
         -object_view $object_view \