diff --git a/mps/qa/function/40.c b/mps/qa/function/40.c
index 2653ba704ac..74db47ab68a 100644
--- a/mps/qa/function/40.c
+++ b/mps/qa/function/40.c
@@ -1,6 +1,6 @@
 /* 
 TEST_HEADER
- id = $HopeName$
+ id = $HopeName: MMQA_test_function!40.c(trunk.4) $
  summary =  check tagged roots are scanned correctly
  language = c
  link = testlib.o exfmt.o
@@ -13,6 +13,7 @@ END_HEADER
 
 void *stackpointer;
 
+
 static void test(void)
 {
  mps_space_t space;
@@ -46,7 +47,7 @@ static void test(void)
 
  cdie(
   mps_root_create_table_masked(&root, space, MPS_RANK_EXACT,
-   0, &z[0], 100, 0x4),
+   0, (mps_addr_t*)&z[0], 100, 0x4),
   "create table root");
 
  cdie(
@@ -96,9 +97,9 @@ static void test(void)
 
  mps_space_destroy(space);
  comment("Destroyed space.");
-
 }
 
+
 int main(void)
 {
  void *m;