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.17 -r1.18
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	4 Jun 2006 00:45:47 -0000	1.17
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.xql	5 Feb 2007 07:05:44 -0000	1.18
@@ -137,6 +137,16 @@
       </querytext>
 </fullquery>
 
+<fullquery name="acs_user::registered_user_p.registered_user_p">
+      <querytext>
+
+            select 1
+            from   registered_users
+            where  user_id = :user_id
+
+      </querytext>
+</fullquery>
+
 <fullquery name="party::update.party_update">      
       <querytext>