Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	7 Apr 2007 00:02:25 -0000	1.7
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	7 Apr 2007 12:28:55 -0000	1.8
@@ -73,9 +73,11 @@
 
     set psql_args [join $psql_args ", "]
     set driver [db_driverkey ""]_[expr {$f ? "func" : "proc"}]
-    set sql_command [list db_exec_plsql exec_${package_name}-${object_name} [subst [call set $driver]]]
+    set sql_command [list db_exec_plsql -dbn \$dbn \
+                         exec_${package_name}-${object_name} \
+                         [subst [call set $driver]]]
 
-    my proc $object_name {{-n:switch false} arglist} [subst -novariables {
+    my proc $object_name {{-n:switch false} {-dbn ""} arglist} [subst -novariables {
       array set defined [list [array get defined]]
 
       foreach var $arglist {