Index: openacs-4/packages/content-includelet/tcl/content-includelet-callback-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-includelet/tcl/content-includelet-callback-procs.tcl,v
diff -u -N -r1.2 -r1.3
--- openacs-4/packages/content-includelet/tcl/content-includelet-callback-procs.tcl	30 Aug 2008 21:20:05 -0000	1.2
+++ openacs-4/packages/content-includelet/tcl/content-includelet-callback-procs.tcl	4 Mar 2009 16:24:20 -0000	1.3
@@ -37,7 +37,7 @@
 } {
     db_1row node_id {}
     db_1row element_id {}
-    set page_id [layout::element::get_page_id -element_id $element_id]
+    set page_id [layout::element::get_column_value -element_id $element_id -column page_id]
     array set page [layout::page::get -page_id $page_id]
     set base [site_node::get_element -node_id $node_id -element url]
     return [export_vars -base $base {{pageset_id $page(pageset_id)} {page_num $page(sort_key)}}]