--- a/compiler/PPCCompiler.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCCompiler.st	Mon Aug 17 12:13:16 2015 +0100
@@ -141,6 +141,10 @@
     currentMethod addOnLine: anotherMethod call.
 !
 
+codeComment: string
+    currentMethod add: '"', string, '"'.
+!
+
 dedent
     currentMethod dedent
 !
@@ -244,9 +248,9 @@
     (variable == #whatever) ifFalse: [ 
         "Do not assign, if somebody does not care!!"
         self add: variable, ' ', selector,' ', argument.
- 		] ifTrue: [ 
+ 				] ifTrue: [ 
         "In case argument has a side effect"
- 				self add: argument	
+ 								self add: argument	
     ]
 !
 
@@ -259,7 +263,7 @@
         self add: variable ,' := ', argument.
     ] ifTrue: [ 
         "In case an argument has a side effect"
- 		self add: argument.	
+ 				self add: argument.	
     ]
 !
 
@@ -337,16 +341,16 @@
 
 codeReturn
    currentMethod isInline ifTrue: [
-		"If inlined, the return variable already holds the value"
-	] ifFalse: [
-		arguments profile ifTrue:[ 
-			self codeProfileStop.
-		]. 
-		self add: '^ ', currentMethod returnVariable  
-	].
+				"If inlined, the return variable already holds the value"
+		] ifFalse: [
+				arguments profile ifTrue:[ 
+						self codeProfileStop.
+				]. 
+				self add: '^ ', currentMethod returnVariable  
+		].
 
-	"Created: / 23-04-2015 / 18:01:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-	"Modified: / 01-06-2015 / 21:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+		"Created: / 23-04-2015 / 18:01:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+		"Modified: / 01-06-2015 / 21:49:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 codeReturn: code
@@ -565,11 +569,11 @@
 
 stopMethod
    self cache: currentMethod methodName as: currentMethod.
-	
-	"arguments profile ifTrue: [ Transcript show: currentMethod code; cr. ]."
-	^ self pop.
+		
+		"arguments profile ifTrue: [ Transcript show: currentMethod code; cr. ]."
+		^ self pop.
 
-	"Modified: / 01-06-2015 / 21:38:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+		"Modified: / 01-06-2015 / 21:38:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 top
@@ -624,8 +628,10 @@
 
 installMethods
     cache keysAndValuesDo: [ :key :method |
-        compiledParser compileSilently: method code classified: method category.
+        compiledParser compileSilently: method source classified: method category.
     ]
+
+    "Modified: / 24-07-2015 / 19:45:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 installVariables