Index: openacs-4/packages/acs-subsite/www/shared/community-member.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/shared/community-member.tcl,v
diff -u -N -r1.8 -r1.9
--- openacs-4/packages/acs-subsite/www/shared/community-member.tcl	30 Aug 2003 19:17:16 -0000	1.8
+++ openacs-4/packages/acs-subsite/www/shared/community-member.tcl	31 Aug 2003 06:16:00 -0000	1.9
@@ -4,7 +4,7 @@
     @param user_id defaults to currently logged in user if there is one
     @cvs-id $Id$
 } {
-    user_id:integer
+    {user_id:integer ""}
 } -properties {
     context:onevalue
     member_state:onevalue
@@ -58,7 +58,7 @@
     return
 }
 
-if { ![string match -nocase "http://*" $url] } {
+if { ![empty_string_p $url] && ![string match -nocase "http://*" $url] } {
     set url "http://$url"
 }