Index: openacs-4/packages/forums/tcl/forums-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/forums-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/forums/tcl/forums-procs.tcl	27 Sep 2017 11:07:52 -0000	1.26
+++ openacs-4/packages/forums/tcl/forums-procs.tcl	27 Sep 2017 12:28:10 -0000	1.27
@@ -85,8 +85,16 @@
 } {
     # Select the info into the upvar'ed Tcl Array
     upvar $array row
-    if {![db_0or1row select_forum {} -column_array row]} {
-        error "Forum $forum_id not found" {} NOT_FOUND
+
+    set global_varname ::forum_${forum_id}
+
+    if {[info exists $global_varname]} {
+        array set row [array get $global_varname]
+    } else {
+        if {![db_0or1row select_forum {} -column_array row]} {
+            error "Forum $forum_id not found" {} NOT_FOUND
+        }
+        array set $global_varname [array get row]
     }
 }