--- a/MessageTracer.st	Tue Oct 15 22:03:19 1996 +0200
+++ b/MessageTracer.st	Tue Oct 15 22:46:11 1996 +0200
@@ -662,8 +662,6 @@
     "arrange for a aMethods execution to be counted.
      Use unwrapMethod to remove this."
 
-    |lvl inside|
-
     MethodCounts isNil ifTrue:[
 	MethodCounts := IdentityDictionary new.
     ].
@@ -734,7 +732,7 @@
     "arrange for aMethods memory usage to be counted.
      Use unwrapMethod to remove this."
 
-    |lvl inside oldPriority oldScavengeCount oldNewUsed|
+    |oldPriority oldScavengeCount oldNewUsed|
 
     MethodCounts isNil ifTrue:[
 	MethodCounts := IdentityDictionary new.
@@ -887,7 +885,7 @@
     "arrange for a aMethods execution time to be measured.
      Use unwrapMethod to remove this."
 
-    |lvl inside t0|
+    |t0|
 
     MethodTiming isNil ifTrue:[
         MethodTiming := IdentityDictionary new.
@@ -1376,7 +1374,7 @@
 untrap:anObject selector:aSelector
     "remove trap on aSelector from anObject"
 
-    |orgClass idx sels dict|
+    |orgClass dict|
 
     orgClass := anObject class.
     orgClass category == #'* trapping *' ifFalse:[^ self].
@@ -1873,6 +1871,6 @@
 !MessageTracer  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.45 1996-10-14 14:54:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.46 1996-10-15 20:46:11 cg Exp $'
 ! !
 MessageTracer initialize!