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.30 -r1.31
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	16 Nov 2006 08:43:23 -0000	1.30
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	17 Nov 2006 08:21:40 -0000	1.31
@@ -336,7 +336,7 @@
        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] = i.live_revision \
+       and    n.[my id_column] = coalesce(i.live_revision, i.latest_revision) \
        and    o.object_id = i.item_id"
     }