Index: openacs-4/packages/content-includelet/tcl/content-includelet-utility-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-includelet/tcl/content-includelet-utility-procs.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/content-includelet/tcl/content-includelet-utility-procs.xql	21 Aug 2008 01:24:40 -0000	1.1
+++ openacs-4/packages/content-includelet/tcl/content-includelet-utility-procs.xql	24 Sep 2011 00:59:54 -0000	1.2
@@ -2,6 +2,16 @@
 
 <queryset>
 
+  <fullquery name="content_includelet_utilities::get_element_id.element_id">
+    <querytext>
+      select p.element_id
+      from layout_element_parameters p, cr_revisions r
+      where r.revision_id = :object_id
+        and p.key like '%_id'
+        and p.value::integer = r.item_id
+    </querytext>
+  </fullquery>
+
   <fullquery name="content_includelet_utilities::configure_content_id.item_exists">
     <querytext>
       select item_id