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 -r1.91 -r1.92
--- openacs-4/packages/contacts/tcl/contacts-procs.tcl	18 Jun 2006 01:00:04 -0000	1.91
+++ openacs-4/packages/contacts/tcl/contacts-procs.tcl	26 Jun 2006 06:36:51 -0000	1.92
@@ -632,11 +632,15 @@
 } {
     create a contact revision
 } {
-    if {[db_0or1row revision_exists_p {select 1 from cr_items where item_id = :party_id}]} {
-	return [item::get_live_revision $party_id]
-    } else {
-	return ""
-    }
+    # since we run the sweeper to create cr_items for every contact
+    # we know that it has a cr_item, so we can simply use the item
+    # proc.
+    #if {[db_0or1row revision_exists_p {select 1 from cr_items where item_id = :party_id}]} {
+    #	return [item::get_live_revision $party_id]
+    #} else {
+    #	return ""
+    #}
+    return [item::get_live_revision $party_id]
 }
 
 ad_proc -public contact::subsite_user_group {