Index: openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl,v
diff -u -N -r1.1.1.1.2.4 -r1.1.1.1.2.5
--- openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl	14 Jan 2006 23:27:59 -0000	1.1.1.1.2.4
+++ openacs-4/packages/news-aggregator/tcl/aggregator-procs.tcl	17 Jan 2006 23:07:28 -0000	1.1.1.1.2.5
@@ -381,6 +381,7 @@
     @creation-date 2003-06-29
 } {
 
+    # MS: should really check for connection here (for 0.9.9)
     if { [string equal $package_id ""] } {
 	set package_id [ad_conn package_id]
     }
@@ -394,7 +395,9 @@
     set aggregator_id [db_exec_plsql new_aggregator {}]
 
     # find app group and assign correct privileges 
-    # (public = viewable by subsite members)
+    # (public = viewable by subsite members); this will be better in 5.2 with
+    # group::get_rel_segment (acording to daveb) as we'll be able to assign privs
+    # using the subsite member rel segment (rather than the entire app group)
     set app_group [application_group::group_id_from_package_id \
 		       -package_id [ad_conn subsite_id]]
     if { !$public_p } {