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.153 -r1.154
--- openacs-4/packages/xowiki/tcl/package-procs.tcl	25 Nov 2008 11:59:21 -0000	1.153
+++ openacs-4/packages/xowiki/tcl/package-procs.tcl	25 Nov 2008 15:21:08 -0000	1.154
@@ -536,10 +536,6 @@
       set lang [my default_language]
     }
 
-    # stripped object is the object without a language prefix
-    set stripped_object $object
-    regexp {^..:(.*)$} $object _ stripped_object
-
     #
     # first, resolve package level methods
     #
@@ -575,6 +571,10 @@
       return $page
     }
 
+    # stripped object is the object without a language prefix
+    set stripped_object $object
+    regexp {^..:(.*)$} $object _ stripped_object
+
     # try standard page
     set standard_page [$id get_parameter ${object}_page]
     if {$standard_page ne ""} {