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.12 -r1.13
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	16 Apr 2007 11:09:12 -0000	1.12
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	2 May 2007 09:54:52 -0000	1.13
@@ -156,6 +156,10 @@
     # but will not work, when a single openacs instance want to talk to 
     # postgres and oracle simultaneously. Not sure, how important this is...
     #
+    if {$object_name eq "set"} {
+      my log "We cannot handle object_name = '$object_name' in this version"  
+      return
+    }
     set package_name   [namespace tail [self]]
     set statement_name [my qn $package_name-$object_name]
     set sql_command    [my psql-[db_driverkey ""] $package_name $object_name $statement_name] 
@@ -168,6 +172,7 @@
       set nonposarg_name [expr {$arg_name eq "DBN" ? "DBN" : [string tolower $arg_name]}]
       lappend nonposarg_list -$nonposarg_name$required
     }
+    #my log "-- define $object_name $nonposarg_list"
 
     my ad_proc $object_name $nonposarg_list {} [subst -novariables {
       #defined: [my array get defined]
@@ -240,6 +245,15 @@
     }
   }
 
+  require proc package name {
+    if {[info command ::${name}::*] eq ""} {
+      set dir [ns_info tcllib]/../packages/$name
+      foreach file [glob $dir/tcl/*-procs.tcl] {
+        uplevel #1 source $file
+      }
+    }
+  }
+
   ad_proc has_ltree {} {
     Check, whether ltree is available (postgres only)
   } {