diff --git a/mps/src/poolmfs.c b/mps/src/poolmfs.c
index 9bdec0b4953..af8e7af4db4 100644
--- a/mps/src/poolmfs.c
+++ b/mps/src/poolmfs.c
@@ -1,6 +1,6 @@
 /*  ==== MANUAL FIXED SMALL UNIT POOL ====
  *
- *  $HopeName: MMsrc!poolmfs.c(trunk.6) $
+ *  $HopeName: MMsrc!poolmfs.c(trunk.7) $
  *
  *  Copyright (C) 1994,1995 Harlequin Group, all rights reserved
  *
@@ -44,7 +44,7 @@
 #include <stdarg.h>
 #include <stddef.h>
 
-SRCID("$HopeName");
+SRCID("$HopeName$");
 
 
 /*  == Round up ==
@@ -75,7 +75,7 @@ PoolClass PoolClassMFS(void)
                 NULL, NULL,             /* bufferCreate, bufferDestroy */
                 NULL, NULL, NULL,       /* comdemn, mark, scan */
                 NULL, NULL,             /* fix, relcaim */
-                NULL,                   /* access */
+                NULL, NULL,             /* access, poll */
                 describe);
   return &PoolClassMFSStruct;
 }
diff --git a/mps/src/poolmv.c b/mps/src/poolmv.c
index 25f7aee5304..db627dc3fee 100644
--- a/mps/src/poolmv.c
+++ b/mps/src/poolmv.c
@@ -1,6 +1,6 @@
 /*  ==== MANUAL VARIABLE POOL ====
  *
- *  $HopeName: MMsrc!poolmv.c(trunk.8) $
+ *  $HopeName: MMsrc!poolmv.c(trunk.9) $
  *
  *  Copyright (C) 1994, 1995 Harlequin Group, all rights reserved
  *
@@ -44,7 +44,7 @@
 #include "mpscmv.h"
 #include <stdarg.h>
 
-SRCID("$HopeName$");
+SRCID("$HopeName: MMsrc!poolmv.c(trunk.9) $");
 
 
 #define BLOCKPOOL(mv)   (PoolMFSPool(&(mv)->blockPoolStruct))
@@ -71,7 +71,7 @@ PoolClass PoolClassMV(void)
                 NULL, NULL,             /* bufferCreate, bufferDestroy */
                 NULL, NULL, NULL,       /* condemn, mark, scan */
                 NULL, NULL,             /* fix, relcaim */
-                NULL,                   /* access */
+                NULL, NULL,             /* access, poll */
                 describe);
   return &PoolClassMVStruct;
 }
diff --git a/mps/src/pooln.c b/mps/src/pooln.c
index dfc6f557041..d4326539d90 100644
--- a/mps/src/pooln.c
+++ b/mps/src/pooln.c
@@ -2,7 +2,7 @@
  *
  *                         NULL POOL
  *
- *  $HopeName: MMsrc!pooln.c(trunk.4) $
+ *  $HopeName: MMsrc!pooln.c(trunk.5) $
  *
  *  Copyright(C) 1995 Harlequin Group, all rights reserved
  *
@@ -26,7 +26,7 @@
 #include <stdarg.h>
 #include <stddef.h>
 
-SRCID("$HopeName$");
+SRCID("$HopeName: MMsrc!pooln.c(trunk.5) $");
 
 
 /*  Class's methods  */
@@ -61,7 +61,7 @@ PoolClass PoolClassN(void)
                 bufferCreate, bufferDestroy,
                 condemn, mark, scan,
                 fix, reclaim,
-                access,
+                access, NULL,
                 describe);
   return &PoolClassNStruct;
 }
diff --git a/mps/src/trace.c b/mps/src/trace.c
index d09b7cdb23f..6119304014f 100644
--- a/mps/src/trace.c
+++ b/mps/src/trace.c
@@ -1,6 +1,6 @@
 /* impl.c.trace: GENERIC TRACER IMPLEMENTATION
  *
- *  $HopeName: MMsrc!trace.c(trunk.7) $
+ *  $HopeName: MMsrc!trace.c(trunk.8) $
  */
 
 #include "std.h"
@@ -14,7 +14,7 @@
 #include "rootst.h"
 #include <limits.h>
 
-SRCID("$HopeName");
+SRCID("$HopeName$");
 
 
 static SigStruct TraceSigStruct;
@@ -188,6 +188,10 @@ void TraceNoteScanned(Trace trace, Addr count)
   trace->work[trace->rank].scanned += count;
 }
 
+Size TracePoll(Trace trace)
+{
+  return SPACE_POLL_MAX;
+}
 
 Error TraceFix(ScanState ss, Ref *refIO)
 {