Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	5 Jan 2007 12:11:02 -0000	1.29
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	9 Jan 2007 11:05:58 -0000	1.30
@@ -44,16 +44,7 @@
     set top_portlets ""
     set vp [$package_id get_parameter "top_portlet" ""]
     if {$vp ne ""} {
-      set vp_name [lindex $vp 0]
-      if {[my isclass ::xowiki::portlet::$vp_name]} {
-        set p [::xowiki::portlet::$vp_name new \
-                   -package_id $package_id \
-                   -name $vp_name \
-                   -actual_query [::xo::cc actual_query] \
-                   -destroy_on_cleanup ]
-        $p set __caller_parameters [lrange $vp 1 end]
-        set top_portlets [$p render]
-      }
+      set top_portlets [my include_portlet $vp]
     }
 
     if {[$package_id get_parameter "with_user_tracking" 1]} {