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.79 -r1.80
--- openacs-4/packages/xotcl-core/xotcl-core.info	25 Jun 2010 08:46:26 -0000	1.79
+++ openacs-4/packages/xotcl-core/xotcl-core.info	8 Jul 2010 12:05:12 -0000	1.80
@@ -10,10 +10,10 @@
     <inherit-templates-p>t</inherit-templates-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.116" url="http://media.wu-wien.ac.at/download/xotcl-core-0.116.apm">
+    <version name="0.117" url="http://media.wu-wien.ac.at/download/xotcl-core-0.117.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>2010-06-25</release-date>
+        <release-date>2010-07-08</release-date>
         <vendor>Gustaf Neumann, WU Wien</vendor>
         <description format="text/html">This component contains some core functionality for OpenACS
 applications using XOTcl. It includes
@@ -43,7 +43,7 @@
         <license>BSD-Style</license>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.116"/>
+        <provides url="xotcl-core" version="0.117"/>
 
         <callbacks>
             <callback type="before-install"  proc="::xotcl-core::before_install_callback"/>
Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -r1.40 -r1.41
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	7 Jul 2010 04:24:44 -0000	1.40
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	8 Jul 2010 12:05:12 -0000	1.41
@@ -567,7 +567,7 @@
     if {![info exists parent_id]} {set parent_id $folder_id}
 
     if {$base_table eq "cr_revisions"} {
-      set attributes [list ci.item_id ci.name ci.publish_status acs_objects.object_type] 
+      set attributes [list ci.item_id ci.name ci.publish_status acs_objects.object_type acs_objects.package_id] 
     } else {
       set attributes [list bt.item_id ci.name ci.publish_status bt.object_type "bt.object_package_id as package_id"] 
     }