diff --git a/mps/qa/function/32.c b/mps/qa/function/32.c
index 6bcf18b3070..cd3311656d4 100644
--- a/mps/qa/function/32.c
+++ b/mps/qa/function/32.c
@@ -63,7 +63,7 @@ static void test(void)
   a[i] = allocone(apawl, 6, 1);
  }
 
- for(i=0; i<100000; i++) {
+ for(i=0; i<10000; i++) {
   j = ranint(100);
   comment("New object %i", j);
   a[j] = allocone(apawl, 5+ranint(50), 1);