--- a/MessageTracer.st	Sun Dec 17 16:19:09 1995 +0100
+++ b/MessageTracer.st	Sun Dec 17 16:20:58 1995 +0100
@@ -797,7 +797,7 @@
     "
     class := aMethod containingClass.
     class isNil ifTrue:[
-        'no containing class for method found' printNL.
+        'MSGTRACER: no containing class for method found' infoPrintNL.
         ^ aMethod
     ].
     selector := class selectorAtMethod:aMethod.
@@ -819,7 +819,7 @@
     ObjectMemory flushCaches.
     ^ originalMethod
 
-    "Modified: 15.12.1995 / 15:43:48 / cg"
+    "Modified: 17.12.1995 / 16:00:55 / cg"
 !
 
 wrapMethod:aMethod onEntry:entryBlock onExit:exitBlock 
@@ -1541,6 +1541,6 @@
 !MessageTracer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.28 1995-12-15 20:43:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MessageTracer.st,v 1.29 1995-12-17 15:20:58 cg Exp $'
 ! !
 MessageTracer initialize!