Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.13 -r1.14
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	17 Sep 2006 21:40:18 -0000	1.13
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	23 Sep 2006 10:39:05 -0000	1.14
@@ -16,9 +16,16 @@
   } {
     #TODO can most probably further simplified
     set page [::Generic::CrItem instantiate -item_id $item_id -revision_id $revision_id]
+
     #my log "--I instantiate i=$item_id revision_id=$revision_id page=$page"
+
     $page folder_id [$page set parent_id] 
-    set package_id [$page set package_id]
+    if {[apm_version_names_compare [ad_acs_version] 5.2] <= -1} {
+      set package_id [db_string get_pid "select package_id from cr_folders where folder_id = [$page $folder_id]"]
+      $page package_id $package_id
+    } else {
+      set package_id [$page set package_id]
+    }
     ::xowiki::Package initialize \
 	-package_id $package_id -user_id $user_id \
 	-parameter $parameter -init_url false -actual_query ""
@@ -565,3 +572,6 @@
   
   
 }
+
+
+