diff --git a/mps/src/vmi5.c b/mps/src/vmi5.c
index 80ac40ffab2..6eda6c4b16d 100644
--- a/mps/src/vmi5.c
+++ b/mps/src/vmi5.c
@@ -1,6 +1,6 @@
 /* impl.c.vmi5: VIRTUAL MEMORY MAPPING FOR IRIX 5 (AND 6)
  *
- * $HopeName$
+ * $HopeName: MMsrc!vmi5.c(trunk.4) $
  * Copyright (C) 1997, 1998 Harlequin Group plc.  All rights reserved.
  *
  * Design: design.mps.vm
@@ -51,7 +51,7 @@
 #define MAP_FAILED ((void *)-1)
 #endif
 
-SRCID(vmi5, "$HopeName: MMsrc!vmi5.c(trunk.3) $");
+SRCID(vmi5, "$HopeName: MMsrc!vmi5.c(trunk.4) $");
 
 
 /* VMStruct -- virtual memory structure */
@@ -237,6 +237,7 @@ Res VMMap(VM vm, Addr base, Addr limit)
 
   vm->mapped += size;
 
+  EVENT_PAA(VMMap, vm, base, limit);
   return ResOK;
 }
 
@@ -269,4 +270,6 @@ void VMUnmap(VM vm, Addr base, Addr limit)
   AVER(addr == (void *)base);
 
   vm->mapped -= size;
+
+  EVENT_PAA(VMUnmap, vm, base, limit);
 }
diff --git a/mps/src/vmli.c b/mps/src/vmli.c
index 0f8051b446f..70f3db05328 100644
--- a/mps/src/vmli.c
+++ b/mps/src/vmli.c
@@ -1,6 +1,6 @@
 /* impl.c.vmli: VIRTUAL MEMORY MAPPING FOR LINUX
  *
- * $HopeName: MMsrc!vmli.c(trunk.2) $
+ * $HopeName: MMsrc!vmli.c(trunk.3) $
  * Copyright (C) 1995, 1997, 1998 Harlequin Group, all rights reserved
  *
  * Readership: Any MPS developer
@@ -64,7 +64,7 @@
 /* for sysconf(2),close(2) */
 #include <unistd.h>
 
-SRCID(vmli, "$HopeName: MMsrc!vmli.c(trunk.2) $");
+SRCID(vmli, "$HopeName: MMsrc!vmli.c(trunk.3) $");
 
 
 /* VMStruct -- virtual memory structure */
@@ -262,6 +262,7 @@ Res VMMap(VM vm, Addr base, Addr limit)
 
   vm->mapped += size;
 
+  EVENT_PAA(VMUnmap, vm, base, limit);
   return ResOK;
 }
 
@@ -289,4 +290,6 @@ void VMUnmap(VM vm, Addr base, Addr limit)
   AVER(addr == (void *)base);
 
   vm->mapped -= size;
+
+  EVENT_PAA(VMUnmap, vm, base, limit);
 }