Index: openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl,v
diff -u -r1.63.2.1 -r1.63.2.2
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	14 Dec 2006 13:55:10 -0000	1.63.2.1
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	25 Feb 2007 20:19:20 -0000	1.63.2.2
@@ -1054,7 +1054,7 @@
 
     if { [info exists cache_key] } {
         set value [ns_cache eval $cache_pool $cache_key {
-            db_with_handle db {
+            db_with_handle -dbn $dbn db {
                 set selection [db_exec 0or1row $db $full_name $sql]
             }
             if { $selection ne ""} {
@@ -1071,7 +1071,7 @@
             return [lindex $value 0]
         }
     } else {
-        db_with_handle db {
+        db_with_handle -dbn $dbn db {
             set selection [db_exec 0or1row $db $full_name $sql]
         }
         if { $selection eq ""} {