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.1 -r1.47.2.2
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	16 Sep 2005 15:47:59 -0000	1.47.2.1
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	25 Jan 2006 14:04:29 -0000	1.47.2.2
@@ -656,7 +656,7 @@
 
     @return party_id
 } {
-    return [db_string select_party_id {*SQL*} -default {}]
+    return [lindex [db_list select_party_id {*SQL*}] 0]
 }
 
 ad_proc -public party::approved_members {
Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.xql,v
diff -u -r1.16 -r1.16.2.1
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	13 Jan 2005 13:55:55 -0000	1.16
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	25 Jan 2006 14:04:29 -0000	1.16.2.1
@@ -163,7 +163,7 @@
         select party_id 
         from   parties 
         where  lower(email) = lower(:email)
-
+	order by party_id desc
       </querytext>
 </fullquery>