Index: openacs-4/packages/s5/tcl/s5-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/s5/tcl/s5-procs.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/s5/tcl/s5-procs.tcl	4 Sep 2007 11:33:29 -0000	1.1
+++ openacs-4/packages/s5/tcl/s5-procs.tcl	4 Sep 2007 11:41:21 -0000	1.2
@@ -143,7 +143,7 @@
     foreach o [$pages children] {
       $o instvar page_order title page_id name title 
       set level [expr {[regsub {[.]} $page_order . page_order] + 1}]
-      set p [::Generic::CrItem instantiate -item_id 0 -revision_id $page_id]
+      set p [::xo::db::CrClass get_instance_from_db -item_id 0 -revision_id $page_id]
       $p destroy_on_cleanup
       #$p set render_adp 0
       set content [$p get_content]
@@ -167,7 +167,7 @@
     foreach o [$pages children] {
       $o instvar page_order title page_id name title 
       set level [expr {[regsub {[.]} $page_order . page_order] + 1}]
-      set p [::Generic::CrItem instantiate -item_id 0 -revision_id $page_id]
+      set p [::xo::db::CrClass get_instance_from_db -item_id 0 -revision_id $page_id]
       $p destroy_on_cleanup
 
       set menu [list]