Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl,v
diff -u -N -r1.33 -r1.34
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	7 Aug 2017 23:47:47 -0000	1.33
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	1 Oct 2017 12:16:04 -0000	1.34
@@ -58,7 +58,7 @@
 	set content_length 0
     }
 
-    switch $storage_type {
+    switch -- $storage_type {
         text {
             set text [db_string write_text_content ""]
             if { $string_p } {
@@ -242,7 +242,7 @@
             db_exec_plsql mime_type_register ""
         }
 
-        switch $content_type {
+        switch -- $content_type {
             image {
 
                 if { [db_string image_subclass ""] == "f" } {
@@ -300,7 +300,7 @@
 
         # insert the attatchment into the database
 
-        switch $storage_type {
+        switch -- $storage_type {
             file {
                 set filename [cr_create_content_file $item_id $revision_id $tmp_filename]
                 db_dml set_file_content ""