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 -N -r1.43 -r1.44
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl	25 Apr 2018 19:23:26 -0000	1.43
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl	8 May 2018 18:02:44 -0000	1.44
@@ -899,7 +899,7 @@
 
             set len [llength $args]
             for { set i 0 } { $i < $len } { incr i } {
-                if { [string equal [string index [lindex $args $i] 0] "-"] } {
+                if { [string index [lindex $args $i] 0] eq "-" } {
                     switch -exact [string range [lindex $args $i] 1 end] {
                         command {
                             # command takes an additional argument