Index: openacs-4/packages/calendar/tcl/test/calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/test/calendar-procs.tcl,v
diff -u -r1.3.2.5 -r1.3.2.6
--- openacs-4/packages/calendar/tcl/test/calendar-procs.tcl	9 Feb 2023 16:51:56 -0000	1.3.2.5
+++ openacs-4/packages/calendar/tcl/test/calendar-procs.tcl	24 Feb 2023 12:53:48 -0000	1.3.2.6
@@ -37,15 +37,23 @@
         set safe_name [db_string q {select max(name) || 'z' from site_nodes}]
         set package_id [site_node::instantiate_and_mount -package_key calendar -node_name $safe_name]
 
-        ad_conn -set package_id $package_id
+        ad_conn -set package_id ""
+        aa_false "No attachments on the new calendar instance (with package)" \
+            [calendar::attachments_enabled_p -package_id $package_id]
 
+        ad_conn -set package_id $package_id
         aa_false "No attachments on the new calendar instance" [calendar::attachments_enabled_p]
 
         set node [site_node::get_from_object_id -object_id $package_id]
         set node_id [dict get $node node_id]
 
         site_node::instantiate_and_mount -package_key attachments -parent_node_id $node_id
 
+        ad_conn -set package_id ""
+        aa_true "Attachments are available (with package)" \
+            [calendar::attachments_enabled_p -package_id $package_id]
+
+        ad_conn -set package_id $package_id
         aa_true "Attachments are available" [calendar::attachments_enabled_p]
 
         ad_conn -set package_id $old_package_id