Index: openacs-4/packages/news-aggregator/www/aggregator.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/aggregator.tcl,v
diff -u -r1.4.2.2 -r1.4.2.3
--- openacs-4/packages/news-aggregator/www/aggregator.tcl	1 Jan 2006 19:44:38 -0000	1.4.2.2
+++ openacs-4/packages/news-aggregator/www/aggregator.tcl	4 Jan 2006 05:31:08 -0000	1.4.2.3
@@ -19,14 +19,10 @@
 }
 
 set page_title "Edit Aggregator Info"
+array set ag_info [news_aggregator::aggregator::aggregator_info -aggregator_id $aggregator_id]
+set context [list [list "." "$ag_info(aggregator_name)"] "$page_title"]
 
-if { [exists_and_not_null context] } {
-    lappend context "$page_title"
-} else {
-    set context [list $page_title]
-}
-
-ad_form -name aggregator -action aggregator -select_query_name select_aggregator -form {
+ad_form -name aggregator -select_query_name select_aggregator -form {
     {aggregator_id:integer(hidden),key}
     {aggregator_name:text
         {label "Name"}