diff --git a/src/testsuite.in b/src/testsuite.in
index ddf7f5a69ac4e97c54f86f2c7f58430016f80341..d683ed8f07dbb8220013aeb4e92930ff664c1c25 100644
--- a/src/testsuite.in
+++ b/src/testsuite.in
@@ -1,5 +1,5 @@
 START_MARKER
-test_true([["$Id: testsuite.in,v 1.893 2010/04/10 17:12:42 mast Exp $"]]);
+test_true([["$Id: testsuite.in,v 1.894 2010/04/16 00:16:16 mast Exp $"]]);
 
 // This triggered a bug only if run sufficiently early.
 test_compile_any([[#pike 7.2]])
@@ -6916,6 +6916,25 @@ cond([[has_value (cpp ("__AUTO_BIGNUM__"), "1")]], [[
 ]])
 test_do([[add_constant("count_memory_stats")]])
 
+test_program([[
+  function ff()
+  {
+    array x;
+    array b() {return x;};
+    x = ({b});
+    return b;
+  }
+
+  int a()
+  {
+    function f = ff();
+    int s = Pike.count_memory (0, f());
+    f = 0;
+    gc();
+    return s > 0;
+  }
+]])
+
 // Numerical limits.
 test_true([[Int.NATIVE_MIN <= -2147483648]])
 test_true([[Int.NATIVE_MAX >= 2147483647]])