diff --git a/site_ansto/instrument/util/config_reader.tcl b/site_ansto/instrument/util/config_reader.tcl index 482f6203..40124cd0 100644 --- a/site_ansto/instrument/util/config_reader.tcl +++ b/site_ansto/instrument/util/config_reader.tcl @@ -70,11 +70,11 @@ proc config_reader::parse_file {filename} { set value [string trim [lindex $pair 1] " "] # Remove matching quotes on both ends (single, double and braces) if { [string index $value 0] == "'" && [string index $value end] == "'" } { - set value [string range 1 end-1] + set value [string range $value 1 end-1] } elseif { [string index $value 0] == "\"" && [string index $value end] == "\"" } { - set value [string range 1 end-1] + set value [string range $value 1 end-1] } elseif { [string index $value 0] == "{" && [string index $value end] == "}" } { - set value [string range 1 end-1] + set value [string range $value 1 end-1] } config_reader::set_var dictionary $cursection $name $value }