--- a/MessageTracer.st	Fri Dec 01 16:45:05 2000 +0100
+++ b/MessageTracer.st	Mon Dec 04 12:28:45 2000 +0100
@@ -1505,7 +1505,7 @@
      because allocating the unwindBlock uses memory and some users want to count allocated memory.
     "
 
-    |selector class trapMethod s spec src dict sel save xselector|
+    |selector class trapMethod s spec src dict sel save save2 xselector|
 
     CallingLevel := 0.
 
@@ -1572,7 +1572,9 @@
 
     src := s contents.
     save := Compiler stcCompilation.
+    save2 := Compiler allowUnderscoreInIdentifier.
     Compiler stcCompilation:#never.
+    Compiler allowUnderscoreInIdentifier:true.
     [
         Class withoutUpdatingChangesDo:[
             trapMethod := Compiler compile:src 
@@ -1581,10 +1583,11 @@
                              notifying:nil
                                install:false
                             skipIfSame:false
-                                silent:true.
+                                silent:false. "/ true.
         ]
     ] valueNowOrOnUnwindDo:[
-        Compiler stcCompilation:save
+        Compiler stcCompilation:save.
+        Compiler allowUnderscoreInIdentifier:save2.
     ].
 
     trapMethod setPackage:aMethod package.
@@ -3036,6 +3039,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.92 2000-11-21 23:33:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.93 2000-12-04 11:28:45 cg Exp $'
 ! !
 MessageTracer initialize!