--- a/MethodCategoryChange.st	Sat Nov 25 14:06:22 2017 +0100
+++ b/MethodCategoryChange.st	Thu Nov 30 13:04:45 2017 +0100
@@ -135,6 +135,19 @@
     "Modified: / 23-11-2006 / 16:59:09 / cg"
 ! !
 
+!MethodCategoryChange methodsFor:'fileout'!
+
+fileOutOn: aStream
+    selector isNil ifTrue:[
+        Transcript show:'missing selector in method category change: '.
+        Transcript showCR:self.
+        ^ self
+    ].    
+    self removed ifFalse:[self basicFileOutOn: aStream]
+
+    "Created: / 30-11-2017 / 13:02:57 / cg"
+! !
+
 !MethodCategoryChange methodsFor:'testing'!
 
 isMethodCategoryChange