Index: openacs-4/packages/calendar/tcl/cal-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/cal-item-procs.tcl,v
diff -u -r1.21 -r1.22
--- openacs-4/packages/calendar/tcl/cal-item-procs.tcl	8 Aug 2006 21:26:17 -0000	1.21
+++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl	16 Aug 2006 17:52:14 -0000	1.22
@@ -90,8 +90,11 @@
 
 } {
     upvar $array row
+    if { [catch  {
+      set attachments_enabled_p [calendar::attachments_enabled_p]
+    }] } { set attachments_enabled_p 0 }
 
-    if {[calendar::attachments_enabled_p]} {
+    if { $attachments_enabled_p } {
         set query_name select_item_data_with_attachment
     } else {
         set query_name select_item_data