diff --git a/src/testsuite.in b/src/testsuite.in
index fe5efc4664136415b22deeed1445ed6acf3ea119..bf3385d7a575bb06edd071f85c929fc894f0f1cc 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-stest_true([["$Id: testsuite.in,v 1.190 1999/08/20 05:44:20 mast Exp $"]])
+stest_true([["$Id: testsuite.in,v 1.191 1999/08/20 06:04:01 mast Exp $"]])
 cond([[all_constants()->_verify_internals]],
 [[
   test_do(_verify_internals())
@@ -603,8 +603,10 @@ test_any_equal(array a = ({([1:10]),([1:11,2:12]),([2:13])}); map(a,`[]=,1,1); r
                ({([1:1]),([1:1,2:12]),([1:1,2:13])}))
 test_any_equal(array a = ({(["a":10]),(["b":11]),([])}); map(a,`->=,"a",1); return a;,
                ({(["a":1]),(["a":1,"b":11]),(["a":1])}))
-dnl test_eval_error(array a = ({(["i":1]),([])}); a["i"];)
-test_eval_error(array a = ({(["i":1]),([])}); a["i"] = 7;)
+test_any_equal(array a = ({(["i":1]),([])}); return a["i"];,
+	       ({1,0}))
+test_any_equal(array a = ({(["i":1]),([])}); a["i"] = 7; return a;,
+	       ({(["i":7]),(["i":7])}))
 test_any([[
   class A {int i = 10; int ii(){return i;}};
   class B {inherit A;};