Index: openacs-4/packages/contacts/tcl/contacts-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/tcl/contacts-procs.tcl,v
diff -u -N -r1.77 -r1.78
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	7 Apr 2006 06:56:04 -0000	1.77
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	10 Apr 2006 07:44:44 -0000	1.78
@@ -137,8 +137,8 @@
     }
     template::multirow foreach $multirow {
 	foreach id $extend {
-	    if { [info exists ${id}__array(${party_id})] } {
-		set $id [set ${id}__array(${party_id})]
+	    if { [info exists ${id}__array([set ${party_id_column}])] } {
+		set $id [set ${id}__array([set ${party_id_column}])]
 	    }
 	}
     }