Index: openacs-4/packages/xowiki/tcl/package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/package-procs.tcl,v
diff -u -r1.14 -r1.15
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	23 Sep 2006 10:39:05 -0000	1.14
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	5 Oct 2006 20:51:27 -0000	1.15
@@ -138,7 +138,7 @@
     }
     if {$object eq ""} {
       # we have no object, but as well no method callable on the package
-      set object index
+      set object [$id get_parameter index_page "index"]
     }
     set page [my resolve_request -path $object]
     if {$page ne ""} {