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.101 -r1.102
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	27 Apr 2015 15:28:21 -0000	1.101
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	30 Jun 2015 09:20:54 -0000	1.102
@@ -1119,6 +1119,7 @@
     if {[info exists ::xo::db::fnargs($key)]} {
       return $::xo::db::fnargs($key)
     }
+    
     ns_log notice "obtain fnargs for $key from PostgreSQL via parsing function definition"
 
     #
@@ -1465,6 +1466,12 @@
 
     foreach item [::xo::dc get_all_package_functions] {
       lassign $item package_name object_name
+
+      if {[string match "*TRG" [string toupper $object_name]]} {
+        # no need to provide interfae to trigger functions
+        continue
+      }
+      
       set class_name ::xo::db::sql::[string tolower $package_name] 
       if {![my isobject $class_name]} { ::xo::db::Class create $class_name }
       $class_name dbproc_nonposargs [string tolower $object_name]
Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.52 -r1.53
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	27 Apr 2015 15:28:21 -0000	1.52
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	30 Jun 2015 09:20:54 -0000	1.53
@@ -417,7 +417,7 @@
 
     @return cr item object
   } {
-    #my log "-- [self args]"
+    #my log "-- generic fetch_object [self args]"
     if {![::xotcl::Object isobject $object]} {
       # if the object does not yet exist, we have to create it
       my create $object
@@ -1501,7 +1501,7 @@
     {-initialize true}
   } {
     set serialized_object [ns_cache eval xotcl_object_cache $object {
-      #my log "--CACHE true fetch [self args]" 
+      #my log "--CACHE true fetch [self args], call shadowed method [self next]" 
       set loaded_from_db 1
       # Call the showdowed method with initializing turned off. We
       # want to store object before the after-load initialize in the