Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.405 -r1.406
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	24 Jun 2010 11:51:33 -0000	1.405
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	25 Jun 2010 19:31:08 -0000	1.406
@@ -1890,7 +1890,7 @@
       # filename. Just use the last part in such cases as name.
       regexp {[/\\]([^/\\]+)$} $stripped_name _ stripped_name
     }
-    return file:[[my $package_id] normalize_name $stripped_name]
+    return file:[[my package_id] normalize_name $stripped_name]
   }
   File instproc full_file_name {} {
     if {![my exists full_file_name]} {