diff --git a/mps/code/arena.c b/mps/code/arena.c
index 547c4220639..dc2f008303c 100644
--- a/mps/code/arena.c
+++ b/mps/code/arena.c
@@ -271,10 +271,6 @@ void ArenaDestroy(Arena arena)
   /* Empty the reservoir - see <code/reserv.c#reservoir.finish> */
   ReservoirSetLimit(ArenaReservoir(arena), 0);
 
-  DIAG_FIRSTF(( "ArenaDestroy", NULL ));
-  DIAG( ControlDescribe(arena, DIAG_STREAM); );
-  DIAG_END("ArenaDestroy");
-
   arena->poolReady = FALSE;
   ControlFinish(arena);
 
diff --git a/mps/code/trace.c b/mps/code/trace.c
index 9706a41c310..3614f3157df 100644
--- a/mps/code/trace.c
+++ b/mps/code/trace.c
@@ -1027,10 +1027,6 @@ void TraceDestroy(Trace trace)
   trace->arena->busyTraces = TraceSetDel(trace->arena->busyTraces, trace);
   trace->arena->flippedTraces = TraceSetDel(trace->arena->flippedTraces, trace);
   EVENT_P(TraceDestroy, trace);
-
-  DIAG_FIRSTF(( "TraceDestroy", NULL ));
-  DIAG( ControlDescribe(trace->arena, DIAG_STREAM); );
-  DIAG_END("TraceDestroy");
 }