diff --git a/mps/qa/function/33.c b/mps/qa/function/33.c
index 0036f4fe7e4..4ac77e2321d 100644
--- a/mps/qa/function/33.c
+++ b/mps/qa/function/33.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);