diff --git a/src/testsuite.in b/src/testsuite.in
index 7ff8706695e74dca4e03dc9fbbf7f4f09dee3822..f62f6dbc398f0b9f83ba890e951b5351de219bff 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.457 2001/10/01 19:54:13 nilsson Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.458 2001/10/02 09:16:55 hubbe Exp $"]]);
 
 cond([[all_constants()->_verify_internals]],
 [[
@@ -834,11 +834,14 @@ test_any([[ int a,b; [ [a],b]=({ ({ 1 }) ,2}); return b]],2)
 test_any([[ int a; catch { [a]=({1,2}); }; return 1]],1)
 test_any([[ int a,b; catch { [a,b]=({1}); }; return 1]],1)
 test_any([[ mapping m=([]); m[m]=m; return stringp(sprintf("%O",m)); ]],1)
-test_any([[ 
-// don't know if this /should/ be valid  /Mirar
-// remove if it shouldn't
-array a=({});
-[]=a; return 1; ]],1)
+dnl test_any([[ 
+dnl // don't know if this /should/ be valid  /Mirar
+dnl // remove if it shouldn't
+dnl
+dnl // I see no reason this should be allowed - Hubbe
+dnl
+dnl array a=({});
+dnl []=a; return 1; ]],1)
 
 test_any([[
   int q() { throw(1); };