Index: openacs-4/packages/acs-templating/tcl/util-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/util-procs.tcl,v
diff -u -r1.26.2.7 -r1.26.2.8
--- openacs-4/packages/acs-templating/tcl/util-procs.tcl	16 Oct 2013 19:56:15 -0000	1.26.2.7
+++ openacs-4/packages/acs-templating/tcl/util-procs.tcl	25 Nov 2013 09:36:38 -0000	1.26.2.8
@@ -38,8 +38,8 @@
     # Get the next arg
     set next [lindex $argv [incr i]]
 
-    if { [string index $next 0] ne "-" ||
-         ! [regexp {[a-zA-Z*]} [string index $next 1] match] } {
+    if { [string index $next 0] ne "-" 
+	 || ![regexp {[a-zA-Z*]} [string index $next 1] match] } {
       
       # the next arg was not a switch so assume it is a parameter 
       set opts($opt) $next