diff --git a/mps/code/trace.c b/mps/code/trace.c
index 557e03b764d..79edb835a85 100644
--- a/mps/code/trace.c
+++ b/mps/code/trace.c
@@ -1328,11 +1328,11 @@ mps_res_t _mps_fix2(mps_ss_t mps_ss, mps_addr_t *mps_ref_io)
   }
 
   tract = PageTract(&chunk->pageTable[i]);
+  /* See <walk.c#roots-walk.second-stage> for where we arrange to fool
+     this test when walking references in the roots. */
   if (TraceSetInter(TractWhite(tract), ss->traces) == TraceSetEMPTY) {
     /* Reference points to a tract that is not white for any of the
-       active traces. See <design/trace/#fix.tractofaddr>.
-       See also <walk.c#roots-walk.second-stage> for where we arrange
-       to fool this test when walking references in the roots. */
+     * active traces. See <design/trace/#fix.tractofaddr> */
     STATISTIC({
       if (TRACT_SEG(&seg, tract)) {
         ++ss->segRefCount;
diff --git a/mps/manual/source/code-index.rst b/mps/manual/source/code-index.rst
index 959961663fb..1b966cbe85e 100644
--- a/mps/manual/source/code-index.rst
+++ b/mps/manual/source/code-index.rst
@@ -368,7 +368,7 @@ sacss.c           :ref:`topic-cache` stress test.
 segsmss.c         Segment splitting and merging stress test.
 steptest.c        :c:func:`mps_arena_step` test.
 tagtest.c         Tagged pointer scanning test.
-walkt0.c          Formatted object walking test.
+walkt0.c          Roots and formatted objects walking test.
 zcoll.c           Garbage collection progress test.
 zmess.c           Garbage collection and finalization message test.
 ================  =============================================================