Index: openacs-4/packages/xotcl-core/xotcl-core.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/xotcl-core.info,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/xotcl-core/xotcl-core.info	22 Jul 2007 12:35:19 -0000	1.30
+++ openacs-4/packages/xotcl-core/xotcl-core.info	29 Jul 2007 21:33:25 -0000	1.31
@@ -8,10 +8,10 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.54" url="http://media.wu-wien.ac.at/download/xotcl-core-0.54.apm">
+    <version name="0.55" url="http://media.wu-wien.ac.at/download/xotcl-core-0.55.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <summary>XOTcl library functionality (e.g. thread handling, online documentation, Generic Form and List Classes)</summary>
-        <release-date>2007-07-22</release-date>
+        <release-date>2007-07-29</release-date>
         <description format="text/html">This component contains some core functionality for OACS
 applications using XOTcl. It includes
 XOTcl thread handling for OACS (supporting persistent and
@@ -39,7 +39,7 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.54"/>
+        <provides url="xotcl-core" version="0.55"/>
 
         <callbacks>
             <callback type="before-install"  proc="::xotcl::before_install_callback"/>
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.83 -r1.84
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	24 Jul 2007 20:52:16 -0000	1.83
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	29 Jul 2007 21:33:25 -0000	1.84
@@ -978,7 +978,7 @@
 
     set user_id [my current_user_id]
     set page_id [my set item_id]
-    set live_revision_id [content::item::get_live_revision -item_id $page_id]
+    set live_revision_id [::xo::db::sql::content_item get_live_revision -item_id $page_id]
     my instvar package_id
     set base [$package_id url]
     set sql [::xo::db::sql select \