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 -N -r1.108 -r1.109
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	9 Oct 2017 13:06:53 -0000	1.108
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 Nov 2017 07:54:07 -0000	1.109
@@ -1080,7 +1080,7 @@
       error "no class $class defined"
     }
     set r [$class create ::$id]
-    $r db_1row get_instance [$class fetch_query $id]
+    $r db_1row dbqd..get_instance [$class fetch_query $id]
     $r set object_id $id
     $r destroy_on_cleanup
     $r initialize_loaded_object