Index: openacs-4/packages/forums/lib/forums-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/lib/forums-portlet.tcl,v
diff -u -r1.3.4.1 -r1.3.4.2
--- openacs-4/packages/forums/lib/forums-portlet.tcl	30 Sep 2013 11:33:53 -0000	1.3.4.1
+++ openacs-4/packages/forums/lib/forums-portlet.tcl	22 Oct 2014 09:50:21 -0000	1.3.4.2
@@ -28,6 +28,9 @@
 } else {
     set n 2
 }
+if {![info exists class]} {
+    set class ""
+}
 if { ![info exists cache] || [expr {$cache < 0}] } {
     set cache 0
 }
@@ -49,14 +52,10 @@
 
 # obtain data (use list rather than multirow, as its easier to cache)
 # identification problems (need package_id + n as part of key)
-set new_topics_script "# /packages/forums/lib/forums-portlet.tcl
-set n $n
-db_list_of_lists new_topics {} -bind { package_id $package_id }"
-set hot_topics_script "# /packages/forums/lib/forums-portlet.tcl
-set n $n
-db_list_of_lists hot_topics {} -bind { package_id $package_id }"
-set new_topics_ds [util_memoize $new_topics_script $cache]
-set hot_topics_ds [util_memoize $hot_topics_script $cache]
+set new_topics_ds [db_list_of_lists -cache_key "new_topics_${n}_$package_id" \
+		       new_topics {}]
+set hot_topics_ds [db_list_of_lists -cache_key "hot_topics_${n}_$package_id" \
+		       hot_topics {}]
 
 multirow create new_topics name url
 foreach row $new_topics_ds {