1 files changed, 5 insertions, 0 deletions
diff --git a/regtest.tcl b/regtest.tcl
index 14ce59f..5b7249c 100644
--- a/regtest.tcl
+++ b/regtest.tcl
@@ -355,6 +355,11 @@ puts "TEST 51 PASSED"
 catch {lsearch -all -command abc def}
 puts "TEST 52 PASSED"
 
+# REGTEST 53
+# string last with invalid index
+catch {string last foo bar -1}
+puts "TEST 53 PASSED"
+
 
 # TAKE THE FOLLOWING puts AS LAST LINE