Index: openacs-4/packages/acs-templating/tcl/richtext-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/richtext-procs.tcl,v
diff -u -N -r1.53 -r1.54
--- openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	7 Aug 2017 23:48:02 -0000	1.53
+++ openacs-4/packages/acs-templating/tcl/richtext-procs.tcl	1 Oct 2017 12:16:05 -0000	1.54
@@ -136,7 +136,7 @@
     set contents [lindex $richtext_list 0]
     set format   [lindex $richtext_list 1]
 
-    switch $what {
+    switch -- $what {
         contents - content - text {
             # Replace contents with value
             return [list $value $format]
@@ -166,7 +166,7 @@
     set contents  [lindex $richtext_list 0]
     set format    [lindex $richtext_list 1]
 
-    switch $what {
+    switch -- $what {
         content - contents - text {
             return $contents
         }