--- a/compiler/PPCMethod.st	Mon May 11 18:31:26 2015 +0100
+++ b/compiler/PPCMethod.st	Tue May 12 01:33:33 2015 +0100
@@ -3,7 +3,8 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#PPCMethod
-	instanceVariableNames:'buffer variables indentation id profile variableForReturn'
+	instanceVariableNames:'buffer variables indentation id profile variableForReturn
+		category'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'PetitCompiler-Core'
@@ -28,6 +29,18 @@
     ^ PPCBridge on: self methodName.
 !
 
+category
+    ^ category isNil 
+        ifTrue: [ category := 'generated' ]
+        ifFalse: [ category ]
+
+    "Modified (format): / 12-05-2015 / 01:21:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+category: value
+    category := value
+!
+
 code
     ^ self methodName, Character cr asString,  
         self variables, Character cr asString,
@@ -76,14 +89,14 @@
 
 profilingBegin
     self profile ifTrue: [ 
- 		^ '  context methodInvoked: #', id, '.'	
+ 				^ '  context methodInvoked: #', id, '.'	
     ].
     ^ ''
 !
 
 profilingEnd
     self profile ifTrue: [ 
- 		^ '  context methodFinished: #', id, '.'	
+ 				^ '  context methodFinished: #', id, '.'	
     ].
     ^ ''
 ! !