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.71 -r1.72
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	20 Jun 2008 11:18:44 -0000	1.71
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	10 Jul 2008 22:11:29 -0000	1.72
@@ -1373,7 +1373,7 @@
     set tables [list]
     set attributes [list]
     set id_column [my id_column]
-    set join_expressions [list "$id_column = $id"]
+    set join_expressions [list "[my table_name].$id_column = $id"]
     foreach cl [concat [self] [my info heritage]] {
       #if {$cl eq "::xo::db::Object"} break
       if {$cl eq "::xotcl::Object"} break