--- a/MessageTracer.st	Mon Jun 04 22:04:57 2007 +0200
+++ b/MessageTracer.st	Thu Oct 04 17:56:58 2007 +0200
@@ -1405,7 +1405,9 @@
 
     |selector class originalMethod dict mthd|
 
-    originalMethod := aMethod originalMethod.
+    aMethod isWrapped ifTrue:[
+        originalMethod := aMethod originalMethod.
+    ].
 
     MethodCounts notNil ifTrue:[
         aMethod isWrapped ifTrue:[
@@ -1470,7 +1472,7 @@
     ^ originalMethod
 
     "Modified: / 05-06-1996 / 14:08:08 / stefan"
-    "Modified: / 05-03-2007 / 15:35:25 / cg"
+    "Modified: / 04-10-2007 / 16:41:01 / cg"
 !
 
 wrapMethod:aMethod onEntry:entryBlock onExit:exitBlock
@@ -3178,7 +3180,7 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.105 2007-03-05 15:21:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.106 2007-10-04 15:56:58 cg Exp $'
 ! !
 
 MessageTracer initialize!