Index: openacs-4/packages/xowiki/tcl/folder-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/folder-procs.tcl,v
diff -u -N -r1.55.2.14 -r1.55.2.15
--- openacs-4/packages/xowiki/tcl/folder-procs.tcl	24 Jul 2019 12:50:51 -0000	1.55.2.14
+++ openacs-4/packages/xowiki/tcl/folder-procs.tcl	25 Jul 2019 11:11:09 -0000	1.55.2.15
@@ -549,7 +549,8 @@
     }
 
     ::$package_id instvar package_key
-    set return_url [ad_return_url -default_url [$current_folder pretty_link]]
+    set current_folder_pretty_link [$current_folder pretty_link]
+    set return_url [ad_return_url -default_url $current_folder_pretty_link]
     set category_url [export_vars -base [::$package_id package_url] {
       {manage-categories 1} {object_id $package_id}
     }]
@@ -567,7 +568,9 @@
     set ::__xowiki_with_publish_status [expr {$publish_status ne "ready"}]
     # unexisting csrf token usually means we are outside a connection thread
     set csrf [expr {[info exists ::__csrf_token] ? [list __csrf_token $::__csrf_token] : ""}]
-    set ::__xowiki_folder_link [::$package_id make_link $current_folder bulk-delete $csrf]
+    set ::__xowiki_folder_link [::$package_id make_link \
+                                    -link $current_folder_pretty_link \
+                                    $current_folder bulk-delete $csrf]
     switch [::$package_id get_parameter PreferredCSSToolkit bootstrap] {
       bootstrap {set tableWidgetClass ::xowiki::BootstrapTable}
       default   {set tableWidgetClass ::xowiki::YUIDataTable}