diff --git a/src/testsuite.in b/src/testsuite.in
index d975dda165f5e29099255ac2bc2a91b555d3e74e..07f06450c8b5f9c3aa0a494762cc76cc99ee0de4 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,4 +1,4 @@
-test_true([["$Id: testsuite.in,v 1.300 2000/06/12 03:21:34 mast Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.301 2000/06/12 13:52:32 mast Exp $"]]);
 
 cond([[all_constants()->_verify_internals]],
 [[
@@ -1845,6 +1845,13 @@ ifefun(gc,
     gc(); o = 0; return gc() > 0;
   }]], 1)
 
+  test_do([[{
+    object o = class {}();
+    array a = ({o});
+    destruct (o);
+    gc();
+  }]]);
+
   test_do([[{
     int got_error = 0;
     array(string) destruct_order;