--- a/compiler/PPCInlinedMethod.st	Fri Jul 24 19:42:09 2015 +0100
+++ b/compiler/PPCInlinedMethod.st	Mon Jul 27 10:21:41 2015 +0100
@@ -13,17 +13,23 @@
 !PPCInlinedMethod methodsFor:'as yet unclassified'!
 
 call
-    ^ self code
-!
+    ^ self source
 
-code
-    ^ (String streamContents:[:s | buffer codeOn:s ]) trimRight
-
-    "Modified (format): / 01-06-2015 / 21:44:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 24-07-2015 / 19:45:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 isInline
     ^ true
+!
+
+source
+    ^ source isString ifTrue:[ 
+        source
+    ] ifFalse:[ 
+        (String streamContents:[:s | source sourceOn:s ]) trimRight
+    ].
+
+    "Created: / 24-07-2015 / 19:46:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPCInlinedMethod methodsFor:'code generation - variables'!