Index: openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl	12 Nov 2002 08:46:39 -0000	1.12
+++ openacs-4/packages/dotlrn-portlet/www/dotlrn-portlet.tcl	27 Oct 2014 16:41:23 -0000	1.13
@@ -30,6 +30,6 @@
 set subcomm_data [dotlrn_community::get_subcomm_chunk -community_id $community_id]
 
 set has_subcomm_p 0
-if {![empty_string_p $subcomm_data]} {
+if {$subcomm_data ne ""} {
     set has_subcomm_p 1
 }