Index: openacs-4/packages/calendar/tcl/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-procs.tcl,v
diff -u -r1.39.2.18 -r1.39.2.19
--- openacs-4/packages/calendar/tcl/calendar-procs.tcl	24 Feb 2023 12:53:08 -0000	1.39.2.18
+++ openacs-4/packages/calendar/tcl/calendar-procs.tcl	14 Apr 2023 14:03:39 -0000	1.39.2.19
@@ -517,9 +517,10 @@
         }
     }
 
-    return [site_node_apm_integration::child_package_exists_p \
-		-package_id $package_id	\
-                -package_key attachments]
+    set node_id [site_node::get_node_id_from_object_id -object_id $package_id]
+    set nodes [site_node::get_children -package_key attachments -node_id $node_id]
+
+    return [expr {[llength $nodes] > 0}]
 }
 
 ad_proc -public calendar::rename {