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.65 -r1.66
--- openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	10 Jan 2007 21:22:11 -0000	1.65
+++ openacs-4/packages/acs-tcl/tcl/00-database-procs.tcl	6 Apr 2007 17:36:01 -0000	1.66
@@ -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 ""} {