--- a/compiler/tests/extras/PPCResources.st	Thu May 21 15:49:26 2015 +0100
+++ b/compiler/tests/extras/PPCResources.st	Thu May 21 17:19:17 2015 +0100
@@ -54,12 +54,11 @@
         2000 timesRepeat: [ 
             sources add: (self expressionOfSize: 200).
         ].
-        sources 
+        sources	
     ].
 
     ^ cache at: #expressionSourcesBig
-
-    "Modified: / 12-05-2015 / 01:44:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    
 !
 
 expressionSourcesMedium
@@ -67,16 +66,15 @@
 
     cache at: #expressionSourcesMedium ifAbsentPut: [ 
         sources := OrderedCollection new.
-
+        
         1000 timesRepeat: [ 
             sources add: (self expressionOfSize: 100).
         ].
-        sources 
+        sources	
     ].
 
     ^ cache at: #expressionSourcesMedium
-
-    "Created: / 12-05-2015 / 01:45:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    
 ! !
 
 !PPCResources methodsFor:'initialization'!
@@ -93,9 +91,7 @@
     files := self readDirectory: directory.
     files := self files: files withExtension: 'java'.
     
-    ^ files collect: [ :f | (FileStream fileNamed: f) contents asString ]
-
-    "Modified: / 12-05-2015 / 01:50:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    ^ files collect: [ :f | (FileStream fileNamed: f) contents ]
 !
 
 javaLangMath
@@ -132,14 +128,7 @@
 !PPCResources methodsFor:'private utilities'!
 
 files: files withExtension: extension
-     ( (Smalltalk respondsTo: #isSmalltalkX) and:[ Smalltalk isSmalltalkX ] ) ifTrue:[ 
-        ^ files select: [ :f | f suffix = extension ] 
-    ] ifFalse:[ 
-        "Assuming Pharo..."   
-        ^ files select: [ :f | f extension = extension ] 
-    ]
-
-    "Modified: / 11-05-2015 / 16:37:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    ^ files select: [ :f | f extension = extension ] 
 !
 
 readDirectory: directory
@@ -176,9 +165,7 @@
     files := self readDirectory: directory.
     files := self files: files withExtension: 'st'.
     
-    ^ files collect: [ :f | (FileStream fileNamed: f) contents asString ]
-
-    "Modified: / 11-05-2015 / 16:38:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    ^ files collect: [ :f | (FileStream fileNamed: f) contents ]
 !
 
 smalltalkObjectMethods