--- a/MethodChange.st	Mon Aug 07 12:17:39 2006 +0200
+++ b/MethodChange.st	Mon Aug 07 15:48:09 2006 +0200
@@ -244,12 +244,14 @@
      The format is suitable for a human - not meant to be read back."
 
     aStream 
-        nextPutAll:self className; 
+        nextPutAll:(self className ? 'unnamed'); 
         space; 
         nextPutAll:(selector ? '?'); 
         nextPutAll:' {'; 
         nextPutAll:methodCategory; 
-        nextPutAll:'}' 
+        nextPutAll:'}'
+
+    "Modified: / 03-08-2006 / 02:04:24 / cg"
 !
 
 printWithoutClassNameOn:aStream
@@ -300,5 +302,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.41 2006-07-25 09:24:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.42 2006-08-07 13:48:09 cg Exp $'
 ! !