diff --git a/mps/code/arenavm.c b/mps/code/arenavm.c
index 4184cf101d3..5a751414594 100644
--- a/mps/code/arenavm.c
+++ b/mps/code/arenavm.c
@@ -532,9 +532,6 @@ static Res VMArenaInit(Arena *arenaReturn, ArenaClass class, ArgList args)
   AVER(sizeof(vmArena->vmParams) == sizeof(vmParams));
   mps_lib_memcpy(vmArena->vmParams, vmParams, sizeof(vmArena->vmParams));
 
-  /* FIXME: Delete event?
-     EVENT2(ArenaBlacklistZone, vmArena, vmArena->blacklist); */
-  
   /* <design/arena/#coop-vm.struct.vmarena.extendby.init> */
   vmArena->extendBy = userSize;
   vmArena->extendMin = 0;
diff --git a/mps/code/eventdef.h b/mps/code/eventdef.h
index 09a73fe6b64..cc3b3d61c21 100644
--- a/mps/code/eventdef.h
+++ b/mps/code/eventdef.h
@@ -192,9 +192,8 @@
   /* new events for performance analysis of large heaps. */ \
   EVENT(X, TraceCondemnZones  , 0x0083,  TRUE, Trace) \
   EVENT(X, ArenaGenZoneAdd    , 0x0084,  TRUE, Arena) \
-  EVENT(X, ArenaUseFreeZone   , 0x0085,  TRUE, Arena) \
-  EVENT(X, ArenaBlacklistZone , 0x0086,  TRUE, Arena)
-  
+  EVENT(X, ArenaUseFreeZone   , 0x0085,  TRUE, Arena)
+
 
 /* Remember to update EventNameMAX and EventCodeMAX above! 
    (These are checked in EventInit.) */
@@ -741,10 +740,6 @@
   PARAM(X,  0, P, arena)        /* the arena */ \
   PARAM(X,  1, W, zoneSet)      /* zones that aren't free any longer */
 
-#define EVENT_ArenaBlacklistZone_PARAMS(PARAM, X) \
-  PARAM(X,  0, P, arena)        /* the arena */ \
-  PARAM(X,  1, W, zoneSet)      /* the blacklist zoneset */
-
 
 #endif /* eventdef_h */