Index: openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl,v
diff -u -N -r1.32 -r1.33
--- openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl	9 Aug 2002 18:39:31 -0000	1.32
+++ openacs-4/packages/calendar-portlet/tcl/calendar-portlet-procs.tcl	27 Oct 2014 16:41:10 -0000	1.33
@@ -67,19 +67,19 @@
     } {
         
         # allow overrides of pretty_name and force_region
-        if {[empty_string_p $pretty_name]} {
+        if {$pretty_name eq ""} {
             set pretty_name [get_pretty_name]
         }
 
-        if {[empty_string_p $force_region]} {
+        if {$force_region eq ""} {
             set force_region [parameter::get_from_package_key \
                                   -package_key [my_package_key] \
                                   -parameter "force_region"
             ]
         }
 
         set extra_params ""
-        if {![empty_string_p $scoped_p]} {
+        if {$scoped_p ne ""} {
             set extra_params [list scoped_p $scoped_p]
         }