Index: openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl,v
diff -u -N -r1.13 -r1.14
--- openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	31 Oct 2003 14:38:16 -0000	1.13
+++ openacs-4/contrib/packages/bcms/tcl/bcms-revision-procs.tcl	3 Nov 2003 14:07:42 -0000	1.14
@@ -108,7 +108,7 @@
     }
     # check the mime type if it does not exists insert it
     if ![db_0or1row check_mime "SQL"] {
-        set file_extension [string range [file extension $upload_filename] 1 last]
+        set file_extension [string range [file extension $upload_filename] 1 end]
         db_dml new_mime_type "SQL"
     }