--- a/compiler/PPCCodeBlock.st	Fri Jul 24 19:42:09 2015 +0100
+++ b/compiler/PPCCodeBlock.st	Mon Jul 27 10:21:41 2015 +0100
@@ -122,26 +122,34 @@
 
 !PPCCodeBlock methodsFor:'printing and storing'!
 
-codeOn: aStream
+sourceOn:aStream 
     "Dumps generated code on given stream"
-
+    
     temporaries notEmpty ifTrue:[
-        ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[ 
-            indentation * 4 timesRepeat: [ aStream nextPut: Character space  ].
-        ] ifFalse:[ 
-            indentation timesRepeat: [ aStream nextPut: Character tab  ].
+        ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
+            indentation * 4 timesRepeat:[
+                aStream nextPut:Character space
+            ].
+        ] ifFalse:[
+            indentation timesRepeat:[
+                aStream nextPut:Character tab
+            ].
         ].
-        aStream nextPut: $|.
-        temporaries do:[:e | aStream space; nextPutAll: e  ].
+        aStream nextPut:$|.
+        temporaries do:[:e | 
+            aStream
+                space;
+                nextPutAll:e
+        ].
         aStream space.
-        aStream nextPut: $|. 
+        aStream nextPut:$|.
         self nl.
-        "In Smalltalk/X, there should be a blank line after temporaries"
-        ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[ 
+         "In Smalltalk/X, there should be a blank line after temporaries"
+        ((Smalltalk respondsTo:#isSmalltalkX) and:[ Smalltalk isSmalltalkX ]) ifTrue:[
             self nl.
         ].
     ].
-    aStream nextPutAll: buffer contents
+    aStream nextPutAll:buffer contents
 
     "Created: / 01-06-2015 / 21:26:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !