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.55 -r1.56
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	20 Jan 2008 11:30:41 -0000	1.55
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	22 Mar 2008 18:31:32 -0000	1.56
@@ -654,7 +654,7 @@
 
     @author Malte Sussdorff (malte.sussdorff@cognovis.de)
 } {
-    if { [empty_string_p $user_id]} {
+    if { $user_id eq ""} {
         set user_id [ad_conn user_id]
     }