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.390 -r1.391
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	28 Apr 2010 12:14:57 -0000	1.390
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	30 Apr 2010 10:34:52 -0000	1.391
@@ -231,6 +231,12 @@
     return $name$count
   }
 
+  autoname proc basename {name} {
+    # In case the provided name has an extension, return the name
+    # without it.
+    file rootname $name
+  }
+
   autoname proc new {-parent_id -name} {
     while {1} {
       set generated_name [my generate -parent_id $parent_id -name $name]