Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v
diff -u -N -r1.166 -r1.167
--- openacs-4/packages/xowiki/tcl/includelet-procs.tcl	23 May 2011 10:47:23 -0000	1.166
+++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl	26 May 2011 20:26:02 -0000	1.167
@@ -3200,6 +3200,7 @@
         {__decoration plain}
         {parameter_declaration {
           {-form}
+          {-parent_id}
           {-property _state}
           {-orderby "count,desc"}
 	  {-renderer "table"}
@@ -3210,9 +3211,10 @@
   form-stats instproc render {} {
     my get_parameters
     set o [my set __including_page]
+    if {![info exists parent_id]} {set parent_id [$o parent_id]}
     set form_item_ids [::xowiki::Weblog instantiate_forms \
 			   -forms $form -package_id $package_id \
-			   -parent_id [$o parent_id]]
+			   -parent_id $parent_id]
     if {[llength $form_item_ids] != 1} {
       return "no such form $form<br>\n"
     }