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 -r1.4 -r1.5
--- openacs-4/packages/xowiki/tcl/folder-procs.tcl	26 May 2011 11:27:48 -0000	1.4
+++ openacs-4/packages/xowiki/tcl/folder-procs.tcl	26 May 2011 20:24:48 -0000	1.5
@@ -514,6 +514,13 @@
 	  set prettyName $name
 	}
 
+	#set delete_link [export_vars -base  [$package_id package_url] \
+	#		      [list {delete 1} \
+	#			   [list item_id [$c item_id]] \
+	#			   [list name [$c pretty_link]] return_url]]
+
+	set delete_link [export_vars -base $page_link {{m delete} return_url}]
+	
         $t add \
             -ID [$c name] \
             -name $prettyName \
@@ -526,10 +533,7 @@
             -edit.href [export_vars -base $page_link {{m edit} return_url}] \
             -edit.title #xowiki.edit# \
             -delete "" \
-            -delete.href [export_vars -base  [$package_id package_url] \
-			      [list {delete 1} \
-				   [list item_id [$c item_id]] \
-				   [list name [$c pretty_link]] return_url]] \
+            -delete.href $delete_link \
             -delete.title #xowiki.delete#
       }
     }