Index: openacs-4/packages/acs-templating/tcl/query-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/query-procs.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl	7 Aug 2017 23:48:02 -0000	1.35
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl	1 Oct 2017 12:16:05 -0000	1.36
@@ -458,7 +458,7 @@
 
   if { $success } {
 
-    switch $type {
+    switch -- $type {
 
       multirow {
 
@@ -871,7 +871,7 @@
 
         set errno [catch { uplevel 1 $code_block } error]
 
-        switch $errno {
+        switch -- $errno {
           0 {
             # TCL_OK
           }