Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.47.2.2 -r1.47.2.3
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	25 Jan 2006 14:04:29 -0000	1.47.2.2
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	27 Jan 2006 16:53:26 -0000	1.47.2.3
@@ -656,7 +656,7 @@
 
     @return party_id
 } {
-    return [lindex [db_list select_party_id {*SQL*}] 0]
+    return [db_string select_party_id {*SQL*} -default ""]
 }
 
 ad_proc -public party::approved_members {