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 -N -r1.15 -r1.16
--- openacs-4/packages/xotcl-core/xotcl-core.info	26 Jul 2006 21:35:57 -0000	1.15
+++ openacs-4/packages/xotcl-core/xotcl-core.info	31 Jul 2006 21:08:43 -0000	1.16
@@ -8,10 +8,10 @@
     <singleton-p>t</singleton-p>
     <auto-mount>xotcl</auto-mount>
 
-    <version name="0.39" url="http://media.wu-wien.ac.at/download/xotcl-core-0.39.apm">
+    <version name="0.40" url="http://media.wu-wien.ac.at/download/xotcl-core-0.40.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>2006-07-26</release-date>
+        <release-date>2006-07-31</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
@@ -22,10 +22,10 @@
 and ad_instproc. This component  provides as 
 well an XOTcl Object and Class browser, as well as
 means to control the recreation of objects and classes
-when components are reloaded. 0.23 contains a major overhaul of the Generic classes. Object preliminary object layer for content repository, oo templating. 0.36 brings caching support for cr-items. 0.38: important change: uses cr_items.name instead of cr_revision.title to label content items. This effects as well the api (lookup uses -name instead of -title).</description>
+when components are reloaded. 0.23 contains a major overhaul of the Generic classes. Object preliminary object layer for content repository, oo templating. 0.36 brings caching support for cr-items. 0.38: important change: uses cr_items.name instead of cr_revision.title to label content items. This effects as well the api (lookup uses -name instead of -title). 0.40: updating package_id in acs_objects, requires now openacs 5.2.*</description>
         <maturity>0</maturity>
 
-        <provides url="xotcl-core" version="0.39"/>
+        <provides url="xotcl-core" version="0.40"/>
 
         <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 -N -r1.18 -r1.19
--- openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	26 Jul 2006 21:35:57 -0000	1.18
+++ openacs-4/packages/xotcl-core/tcl/generic-procs.tcl	31 Jul 2006 21:08:44 -0000	1.19
@@ -570,6 +570,9 @@
     if {$__p > -1} {set __atts [lreplace $__atts $__p $__p]}
 
     [self class] instvar insert_view_operation
+    if {![info exists package_id]} {
+      set package_id [expr {[my exists package_id] ? [my set package_id] : 0}]
+    }
     db_transaction {
       $__class instvar storage_type object_type
       $__class folder_type -folder_id $parent_id register
@@ -578,8 +581,8 @@
 	select content_item__new(:name,$parent_id,null,null,null,:creation_user,null,null,
 				 'content_item',:object_type,null,
 				 :description,:mime_type,
-				 :nls_language,null,:storage_type)"]
-      
+				 :nls_language,null,null,null,'f',:storage_type, $package_id)"]
+
       set revision_id [db_nextval acs_object_id_seq]
       $insert_view_operation revision_add \
 	  "insert into [$__class set table_name]i ([join $__atts ,]) \