Index: openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/table-display-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	7 Aug 2017 23:48:00 -0000	1.24
+++ openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl	1 Oct 2017 12:16:05 -0000	1.25
@@ -318,7 +318,7 @@
 		# single characters r l c are special for alignment 
 		set Tformat [lindex $Tcol 3]
 		set Tcolumn [lindex $Tcol 0]
-		switch $Tformat {
+		switch -- $Tformat {
 		    "" {set Tdisplay_field " <td>[set $Tcolumn]</td>\n"}
 		    r {set Tdisplay_field " <td align=\"right\">[set $Tcolumn]</td>\n"}
 		    l {set Tdisplay_field " <td align=\"left\">[set $Tcolumn]</td>\n"}