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.85 -r1.86
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	4 Sep 2007 11:31:20 -0000	1.85
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	8 Sep 2007 09:58:24 -0000	1.86
@@ -28,10 +28,10 @@
 
     #my log "--I get_instance_from_db i=$item_id revision_id=$revision_id page=$page"
 
-    $page folder_id [$page set parent_id] 
+    set folder_id [$page set parent_id] 
     if {[apm_version_names_compare [ad_acs_version] 5.2] <= -1} {
       set package_id [db_string [my qn get_pid] \
-                          "select package_id from cr_folders where folder_id = [$page $folder_id]"]
+                          "select package_id from cr_folders where folder_id = $folder_id"]
       $page package_id $package_id
     } else {
       set package_id [$page set package_id]