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.58.2.3 -r1.58.2.4
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	21 Apr 2008 10:33:30 -0000	1.58.2.3
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 Apr 2008 10:42:39 -0000	1.58.2.4
@@ -1357,7 +1357,7 @@
           set names($name) 1
 	}
         if {$cl ne [self]} {
-          lappend join_expressions "$tn.[$cl id_column] = [my table_name]$id_column"
+          lappend join_expressions "$tn.[$cl id_column] = [my table_name].$id_column"
         }
       }
     }