Index: openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl,v
diff -u -r1.19 -r1.19.8.1
--- openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl	8 Aug 2006 21:26:33 -0000	1.19
+++ openacs-4/packages/dotlrn-dotlrn/tcl/dotlrn-members-procs.tcl	18 Aug 2014 21:12:20 -0000	1.19.8.1
@@ -137,13 +137,13 @@
         # we only need to check for community_id in the ns_set
         set community_id [ns_set get $args "community_id"]
 
-        if {![empty_string_p $community_id]} {
+        if {$community_id ne ""} {
             # portal_id is a community portal 
             set community_type \
                 [dotlrn_community::get_community_type_from_community_id \
                      $community_id]
             
-            if {[string equal $community_type "dotlrn_community"]} {
+            if {$community_type eq "dotlrn_community"} {
                 set page_name [get_subcomm_default_page]
             } else {
                 set page_name [get_community_default_page]