#15 Function Justification

[Anonymous]

The function Justification does not identify all the cases
correctly.
This is due to switch. Not this controlled that a value
begins by -.

switch [lindex $coltype 0]

The solution is as simple as to put:

switch -- [lindex $coltype 0]

Thanks.