Index: openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl	17 May 2003 11:22:12 -0000	1.4
+++ openacs-4/packages/rss-support/tcl/rss-utilities-procs.tcl	27 Oct 2014 16:41:53 -0000	1.5
@@ -16,7 +16,7 @@
     # Returns 0 otherwise.
     </pre>
 } {
-    if ![db_0or1row get_package_id {}] {
+    if {![db_0or1row get_package_id {}]} {
 	return 0
     } else {
 	return $package_id
@@ -42,7 +42,7 @@
     relative url for that node.  Returns empty string
     if the package is not mounted.
 } {
-    return [util_memoize "rss_first_url_for_package_id_helper $package_id"]
+    return [util_memoize [list rss_first_url_for_package_id_helper $package_id]]
 }
 
 ad_proc -private rss_first_url_for_package_id_helper {
@@ -52,7 +52,7 @@
 } {
     set url ""
 
-    if [db_0or1row first_node_id {}] {
+    if {[db_0or1row first_node_id {}]} {
 	db_foreach url_parts {} {
 	    append url ${name}
 	}