Index: openacs-4/packages/calendar-portlet/tcl/calendar-list-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/tcl/calendar-list-portlet-procs.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/calendar-portlet/tcl/calendar-list-portlet-procs.tcl	21 Oct 2003 14:40:32 -0000	1.5
+++ openacs-4/packages/calendar-portlet/tcl/calendar-list-portlet-procs.tcl	27 Oct 2014 16:41:10 -0000	1.6
@@ -61,7 +61,7 @@
 
 	@return element_id The new element's id
     } {
-        if {[empty_string_p $scoped_p]} {
+        if {$scoped_p eq ""} {
             set scoped_p f
         }