diff --git a/mps/code/trace.c b/mps/code/trace.c
index 8d7f1066a65..424ec647396 100644
--- a/mps/code/trace.c
+++ b/mps/code/trace.c
@@ -399,9 +399,7 @@ Res TraceCondemnZones(Trace trace, ZoneSet condemnedSet)
   arena = trace->arena;
 
   if(SegFirst(&seg, arena)) {
-    Addr base;
     do {
-      base = SegBase(seg);
       /* Segment should be black now. */
       AVER(!TraceSetIsMember(SegGrey(seg), trace));
       AVER(!TraceSetIsMember(SegWhite(seg), trace));
diff --git a/mps/code/walk.c b/mps/code/walk.c
index bab74bc57e7..b17540e4954 100644
--- a/mps/code/walk.c
+++ b/mps/code/walk.c
@@ -74,10 +74,8 @@ static void ArenaFormattedObjectsWalk(Arena arena, FormattedObjectsStepMethod f,
   AVERT(FormattedObjectsStepClosure, c);
 
   if (SegFirst(&seg, arena)) {
-    Addr base;
     do {
       Pool pool;
-      base = SegBase(seg);
       pool = SegPool(seg);
       if (pool->class->attr & AttrFMT) {
         ShieldExpose(arena, seg);
@@ -308,9 +306,7 @@ static Res ArenaRootsWalk(Globals arenaGlobals, mps_roots_stepper_t f,
   /* ArenaRootsWalk only passes references to GCable pools to the client. */
   /* NOTE: I'm not sure why this is. RB 2012-07-24 */
   if (SegFirst(&seg, arena)) {
-    Addr base;
     do {
-      base = SegBase(seg);
       if ((SegPool(seg)->class->attr & AttrGC) != 0) {
         TraceAddWhite(trace, seg);
       }