diff --git a/mps/qa/function/31.c b/mps/qa/function/31.c
index 9ab778add51..cb7577a3106 100644
--- a/mps/qa/function/31.c
+++ b/mps/qa/function/31.c
@@ -1,6 +1,6 @@
 /* 
 TEST_HEADER
- id = $HopeName$
+ id = $HopeName: MMQA_test_function!31.c(trunk.4) $
  summary = regression test for request.dylan.170459 (scanning and buffers in AWL)
  language = c
  link = testlib.o awlfmt.o
@@ -12,8 +12,10 @@ END_HEADER
 #include "mpscamc.h"
 #include "awlfmt.h"
 
+
 void *stackpointer;
 
+
 static void test(void)
 {
  mps_space_t space;
@@ -27,7 +29,6 @@ static void test(void)
  mycell *a, *b, *c;
 
  int i;
- int j;
 
  alloccomments = 1;
  fixcomments = 1;
@@ -73,7 +74,8 @@ static void test(void)
 
  for(i=0; i<1000; i++) {
   b = allocdumb(apamc, 0x400*1024, 0);
-  comment("%i of 1000.", j);
+  if (i % 50 == 0)
+    comment("%d of 1000.", i);
  }
 
  mps_ap_destroy(apawl);
@@ -95,9 +97,9 @@ static void test(void)
 
  mps_space_destroy(space);
  comment("Destroyed space.");
-
 }
 
+
 int main(void)
 {
  void *m;