Index: openacs-4/packages/calendar/www/calendar-item-types.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/calendar-item-types.tcl,v
diff -u -r1.5.2.1 -r1.5.2.2
--- openacs-4/packages/calendar/www/calendar-item-types.tcl	7 Sep 2013 09:30:37 -0000	1.5.2.1
+++ openacs-4/packages/calendar/www/calendar-item-types.tcl	3 Oct 2013 07:39:46 -0000	1.5.2.2
@@ -51,7 +51,7 @@
 foreach item_type $item_types {
     set item_type_id [lindex $item_type 1]
     set type [lindex $item_type 0]
-    if {[empty_string_p $item_type_id]} {
+    if {$item_type_id eq ""} {
         continue
     }
     multirow append item_types "$type" "[_ acs-kernel.common_Delete]" [export_vars -base "item-type-delete" {calendar_id item_type_id}]