--- a/CustomCodeGenerator.st	Tue Aug 26 06:31:29 2014 +0100
+++ b/CustomCodeGenerator.st	Tue Aug 26 22:49:18 2014 +0100
@@ -37,6 +37,10 @@
     ^ self == CustomCodeGenerator
 
     "Created: / 26-01-2014 / 21:38:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isCustomCodeGenerator
+    ^ true
 ! !
 
 !CustomCodeGenerator methodsFor:'executing'!
@@ -60,6 +64,12 @@
     "Created: / 08-07-2014 / 18:31:10 / Jakub Nesveda <nesvejak@fit.cvut.cz>"
 ! !
 
+!CustomCodeGenerator methodsFor:'testing'!
+
+isCustomCodeGenerator
+    ^ true
+! !
+
 !CustomCodeGenerator class methodsFor:'documentation'!
 
 version_HG