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.23 -r1.24
--- openacs-4/packages/xowiki/tcl/folder-procs.tcl	11 Apr 2013 12:56:23 -0000	1.23
+++ openacs-4/packages/xowiki/tcl/folder-procs.tcl	8 Jul 2013 19:11:52 -0000	1.24
@@ -248,6 +248,7 @@
       }
       $mb add_menu_item -name New.Form \
 	  -item [list text Form url $new_form_link]
+
       $mb add_menu_item -name Package.ImportDump -item [list url $import_link]
       $mb add_menu_item -name Package.ImportArchive -item [list url $import_archive_link]
 
@@ -269,15 +270,19 @@
       # clipboad-add)
       $mb add_menu_item -name Clipboard.Add \
           -item [list url javascript:acs_ListBulkActionClick("objects","$folder_link?m=clipboard-add")]
-      $mb add_menu_item -name Clipboard.Content -item [list url $clipboard_content_link]
-      $mb add_menu_item -name Clipboard.Clear -item [list url $clipboard_clear_link]
-      $mb add_menu_item -name Clipboard.Use.Copy -item [list url $clipboard_copy_link]
-      $mb add_menu_item -name Clipboard.Use.Export -item [list url $clipboard_export_link]
+      $mb add_menu_item -name Clipboard.Content     -item [list url $clipboard_content_link]
+      $mb add_menu_item -name Clipboard.Clear       -item [list url $clipboard_clear_link]
+      $mb add_menu_item -name Clipboard.Use.Copy    -item [list url $clipboard_copy_link]
+      $mb add_menu_item -name Clipboard.Use.Export  -item [list url $clipboard_export_link]
 
       # A folder page can contain extra menu entries (sample
       # below). Iterate of the extra_menu property and add according
       # menu entries.
-      foreach me [$current_folder property extra_menu_entries] {
+      #{form_link -name New.Page -label #xowiki.new# -form en:page.form}
+
+      foreach me [concat \
+		      [$package_id get_parameter extraMenuEntries {}] \
+		      [$current_folder property extra_menu_entries]] {
         array unset ""
         set kind [lindex $me 0]
         if {[string range $kind 0 0] eq "#"} continue