2 files changed, 6 insertions, 25 deletions

diff --git a/mps/code/trace.c b/mps/code/trace.c
index c5f0c4dd0f4..b38a42a30af 100644
--- a/mps/code/trace.c
+++ b/mps/code/trace.c
@@ -804,7 +804,7 @@ static void traceReclaim(Trace trace)
   trace->state = TraceFINISHED;
   TracePostMessage(trace);  /* trace end */
   /* Immediately pre-allocate messages for next time; failure is okay */
-  (void)TraceIdMessagesCreate(arena, trace->ti);
+  /*(void)TraceIdMessagesCreate(arena, trace->ti);*/
 }
 
 
diff --git a/mps/code/z001989a.c b/mps/code/z001989a.c
index 3c5c82f1473..825b27b917c 100644
--- a/mps/code/z001989a.c
+++ b/mps/code/z001989a.c
@@ -421,31 +421,12 @@ int main(int argc, char **argv)
   /* The most basic scripts */
   testscriptA(".");
   testscriptA("Cbe.");
-  testscriptA("Cbe.Cbe.");
-
-  /* Get messages, but not promptly */
-  testscriptA(".Cbe.CbeCbeCbe.");
-
-  /* Ungot messages at ArenaDestroy */
-  testscriptA("Cbe");
-  testscriptA("Cbe.CbeCbeCbe");
-
-  /* Fail to call mps_message_discard */
-  testscriptA("Cbe!");
-  testscriptA("Cbe!CbeCbeCbe!");
-
-  /* Simple finalization
-   *
-   * These tests rely on the particular order in which the "F" command 
-   * nulls-out references.  Not every "F" makes an object finalizable.
-   * See .keep-alive.
-   */
-  testscriptA("FFCbffe.");
-  testscriptA("FFCbffe.FFCbffe.");
-  testscriptA("FFCbffe.FCbe.F.Cbffe.FFCbfe.FF.Cbfffe.");
   
-  /* Various other scripts */
-  testscriptA("Cbe.FFCbffe.Cbe");
+  /* SPECIAL SCRIPTS to work with a traceanc.c hacked to drop GC messages */
+  testscriptA("Cbe.CC.");
+  testscriptA("CCCCCbe!");
+  testscriptA("FFCbffe.FFCff.");
+  testscriptA("CbeFFCff.C");
 
   fflush(stdout); /* synchronize */
   fprintf(stderr, "\nConclusion:  Failed to find any defects.\n");