Index: openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	24 Apr 2006 08:24:04 -0000	1.6
+++ openacs-4/packages/xowiki/tcl/xowiki-sc-procs.tcl	25 Apr 2006 23:05:36 -0000	1.7
@@ -52,6 +52,7 @@
   set folder_id [$page set parent_id]
   set pid [db_string get_pid "select package_id from cr_folders where folder_id = $folder_id"]
   if {$pid > 0} {
+    set package_id [$folder_id set package_id]
     return [::xowiki::Page pretty_link -package_id $package_id [$page set title]]
   } else {
     # cannot determine package_id; one page from the directory should be viewed to update 
Index: openacs-4/packages/xowiki/www/delete-revision.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/delete-revision.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xowiki/www/delete-revision.tcl	30 Dec 2005 00:09:57 -0000	1.3
+++ openacs-4/packages/xowiki/www/delete-revision.tcl	25 Apr 2006 23:05:36 -0000	1.4
@@ -13,4 +13,5 @@
 db_exec_plsql delete_revision {
   select content_revision__del(:revision_id)
 }
+ns_cache flush xotcl_object_cache ::$page_id
 ad_returnredirect [export_vars -base revisions {page_id title}]
\ No newline at end of file
Index: openacs-4/packages/xowiki/www/delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/delete.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/xowiki/www/delete.tcl	30 Jan 2006 02:04:51 -0000	1.4
+++ openacs-4/packages/xowiki/www/delete.tcl	25 Apr 2006 23:05:36 -0000	1.5
@@ -13,5 +13,6 @@
 
 permission::require_write_permission -object_id $item_id
 ::Generic::CrItem delete -item_id $item_id 
+ns_cache flush xotcl_object_cache ::$item_id
 ad_returnredirect $query
 
Index: openacs-4/packages/xowiki/www/make-live-revision.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/www/Attic/make-live-revision.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/xowiki/www/make-live-revision.tcl	30 Dec 2005 00:09:58 -0000	1.3
+++ openacs-4/packages/xowiki/www/make-live-revision.tcl	25 Apr 2006 23:05:36 -0000	1.4
@@ -5,12 +5,13 @@
   @creation-date Oct 23, 2005
   @cvs-id $Id$
 } {
-  file_id:integer,notnull
+  page_id:integer,notnull
   revision_id:integer,notnull
   title
 }
 
 db_exec_plsql make_live {
   select content_item__set_live_revision(:revision_id)
 }
-ad_returnredirect [export_vars -base file {file_id title}]
\ No newline at end of file
+ns_cache flush xotcl_object_cache ::$page_id
+ad_returnredirect [export_vars -base revisions {page_id title}]
\ No newline at end of file