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.20.2.4 -r1.20.2.5
--- openacs-4/packages/calendar/tcl/cal-item-procs.tcl	25 Oct 2005 11:50:36 -0000	1.20.2.4
+++ openacs-4/packages/calendar/tcl/cal-item-procs.tcl	16 Aug 2006 17:20:32 -0000	1.20.2.5
@@ -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