Index: openacs-4/packages/rss-support/tcl/rss-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-support-procs.tcl,v
diff -u -r1.1.2.7 -r1.1.2.8
--- openacs-4/packages/rss-support/tcl/rss-support-procs.tcl	4 Feb 2005 21:17:55 -0000	1.1.2.7
+++ openacs-4/packages/rss-support/tcl/rss-support-procs.tcl	15 Feb 2005 19:46:41 -0000	1.1.2.8
@@ -50,15 +50,15 @@
     set impl_id [db_string get_impl_id ""]
 
     set var_list [list \
-                      [list subscr_id ""] \
-                      [list impl_id $impl_id] \
-                      [list summary_context_id $summary_context_id] \
-                      [list timeout $timeout] \
-                      [list lastbuild $lastbuild] \
-                      [list object_type $object_type] \
-                      [list creation_user $creation_user ] \
-                      [list creation_ip $creation_ip] \
-                      [list context_id $context_id]
+                      [list p_subscr_id ""] \
+                      [list p_impl_id $impl_id] \
+                      [list p_summary_context_id $summary_context_id] \
+                      [list p_timeout $timeout] \
+                      [list p_lastbuild $lastbuild] \
+                      [list p_object_type $object_type] \
+                      [list p_creation_user $creation_user ] \
+                      [list p_creation_ip $creation_ip] \
+                      [list p_context_id $context_id]
                   ]
     if {[exists_and_not_null creation_date]} {
         lappend var_list [list creation_date $creation_date]