diff --git a/src/testsuite.in b/src/testsuite.in
index 5afde4940b2a074eaea8c18399a783165340a052..e29e531757b0894521fd2bcc40c7ed032ccb51df 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.36 1997/03/12 12:15:28 hubbe Exp $"]])
+test_true([["$Id: testsuite.in,v 1.37 1997/03/17 22:52:02 hubbe Exp $"]])
 test_any([[class foo { constant x=17; }; class bar { inherit foo; constant x=18; }; return bar()->x;]],18)
 test_program([[inline string foo(string s){ while(s[0] == ' ' || s[0] == '\t') s = s[1..]; return(s); } string a() { return foo("   bar"); }]])
 test_true([[lambda(function f) {return 1;}(object_program(this_object()));]])
@@ -1619,6 +1619,8 @@ test_search($1,$2,$3)
 test_search($1,$2+1,$3)
 test_search($1,$2+2,$3)
 test_search($1,$2+3,$3)
+test_search($1,$2+4,$3)
+test_search($1,$2+5,$3)
 ]])
 
 define(test_search3,[[dnl
@@ -1629,11 +1631,13 @@ test_search2($1,100000,$2)
 
 define(test_search4,[[dnl
 test_search3($1,"+-*")
-test_search3($1,($1[0..strlen($1)-2]))
-test_search3($1,($1[1..0x7fffffff]))
+test_search3($1,($1[..strlen($1)-2]))
+test_search3($1,($1[..strlen($1)-3]))
+test_search3($1,($1[1..]))
 ]])
 
 test_search4("SUNE")
+test_search4("kapit�l>")
 test_search4("-------------------+")
 test_search4("�-------------------")
 test_search4(sprintf("%'argel-bargel glop-glyf?'2000n"))