diff --git a/src/testsuite.in b/src/testsuite.in
index 8bf88d5a7fa35f9a51a2f85d0fe4b4d723dad5a9..f75a9e607eec215f6818e4bca505d7426032f63c 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.639 2003/04/28 22:04:10 nilsson Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.640 2003/05/15 15:31:35 mast Exp $"]]);
 
 // This triggered a bug only if run sufficiently early.
 test_compile_any([[#pike 7.2]])
@@ -9683,9 +9683,11 @@ test_do([[
   }
 ]])
 
+// string[]=
 test_any([[string s="foo"; s[2]='t'; s[0]--; return s;]],"eot")
 test_any([[string s="foo"; s[2]=0777; s[1]--; return s;]],"fn\777")
 test_any([[string s="foo"; s[2]=07777777; s[1]--; return s;]],"fn\7777777")
+test_any([[string s="foo"; s[2]='t'; catch (s[10]='x'); return s;]], "fot")
 
 cond([[all_constants()->_verify_internals]],
 [[