--- a/compiler/PPCCompiler.st	Sun Oct 26 22:05:59 2014 +0000
+++ b/compiler/PPCCompiler.st	Sun Oct 26 22:08:41 2014 +0000
@@ -80,8 +80,13 @@
 !
 
 cleanGeneratedMethods: class
-	(class allSelectorsInProtocol: #generated) do: [ :selector | 
-		class removeSelectorSilently: selector ].
+        class methodsDo: [ :mthd |
+            mthd category = #generated ifTrue:[  
+                class removeSelector: mthd selector.
+            ]
+        ]
+
+    "Modified: / 26-10-2014 / 22:07:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 cleanInstVars: class