Index: openacs-4/packages/xotcl-core/tcl/generic-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/generic-procs.tcl,v
diff -u -r1.84 -r1.85
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	29 Jul 2007 21:33:25 -0000	1.84
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	3 Aug 2007 07:39:30 -0000	1.85
@@ -481,11 +481,6 @@
        and    i.item_id = n.item_id \
        and    o.object_id = $revision_id"
     } else {
-my log  "select [join $atts ,], i.parent_id \
-       from   [my set table_name]i n, cr_items i, acs_objects o \
-       where  i.item_id = $item_id \
-       and    n.[my id_column] = coalesce(i.live_revision, i.latest_revision) \
-       and    o.object_id = i.item_id"
       $object db_1row [my qn fetch_from_view_item_id] "\
        select [join $atts ,], i.parent_id \
        from   [my set table_name]i n, cr_items i, acs_objects o \