Index: openacs-4/packages/contacts/lib/contact-attributes.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/contact-attributes.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/contacts/lib/contact-attributes.tcl	31 Jul 2005 09:16:18 -0000	1.4
+++ openacs-4/packages/contacts/lib/contact-attributes.tcl	13 Sep 2005 15:15:51 -0000	1.5
@@ -37,9 +37,13 @@
         lappend ams_groups $group_id
     }
 }
-set revision_id [contact::live_revision -party_id $party_id]
 
+if { ![exists_and_not_null revision_id] } {
+    set revision_id [contact::live_revision -party_id $party_id]
+}
 
+
+
 # The categories multirow contains all categories for all trees and is
 # prepared for easy access later on.