tcl/stm32wlx.cfg: comply with new jimtcl expr syntax

[fw/openocd] / tcl / target / stm32wlx.cfg

diff --git a/tcl/target/stm32wlx.cfg b/tcl/target/stm32wlx.cfg
index edb3fb32b424461ccaaff8411f2eeae6b66a73b7..fafe9bcbacdc8a15b7a163974c270fe17f23e9c5 100644 (file)
--- a/tcl/target/stm32wlx.cfg
+++ b/tcl/target/stm32wlx.cfg
@@ -151,7 +151,7 @@ proc stm32wlx_get_chipname {} {
        if {$sep == -1} {
                return $t
        }
-       return [string range $t 0 [expr $sep - 1]]
+       return [string range $t 0 [expr {$sep - 1}]]
 }
 
 # like mrw, but with target selection