Index: openacs-4/packages/calendar/tcl/calendar-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-callback-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/calendar/tcl/calendar-callback-procs.tcl	8 Aug 2006 21:26:17 -0000	1.6
+++ openacs-4/packages/calendar/tcl/calendar-callback-procs.tcl	27 Oct 2014 16:41:07 -0000	1.7
@@ -15,7 +15,7 @@
     set return_msg [list $msg]
     
     set cals [db_list get_calendars {*SQL*} ]
-    if { [empty_string_p $cals ] } {
+    if { $cals eq "" } {
 	lappend return_msg "none"
     } else {
 	lappend return_msg $cals