Index: openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl,v
diff -u -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl	21 Nov 2020 23:55:24 -0000	1.4.2.2
+++ openacs-4/packages/xotcl-request-monitor/tcl/callback-procs.tcl	7 Aug 2024 13:56:33 -0000	1.4.2.3
@@ -82,8 +82,28 @@
       }
     }
   }
-}
 
+  ad_proc -private after_mount {
+    -package_id:required
+    -node_id:required
+  } {
+    Modify default permissions after mount.
+  } {
+    ns_log notice "-- After mount callback package_id $package_id node_id $node_id"
+    
+    #
+    # Turn off inheritance from public site
+    #
+    permission::set_not_inherit -object_id $package_id
+    #
+    # Allow registered users to read
+    #
+    permission::grant -party_id [acs_magic_object registered_users] \
+        -object_id $package_id \
+        -privilege read
+  }
+}
+  
 ::xo::library source_dependent
 
 # Local variables: