--- a/s/BenchmarkInstance.st	Tue May 28 23:24:05 2013 +0100
+++ b/s/BenchmarkInstance.st	Fri May 31 00:31:43 2013 +0100
@@ -270,13 +270,14 @@
         instance perform: warmUpSelector2.
         warmed := true.
     ].
-    "/ Default warmup
+    "Default warmup"
     warmed ifFalse:[
         instance perform: benchmarkSelector 
     ].
 
     "Created: / 27-05-2013 / 19:02:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 28-05-2013 / 11:00:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 31-05-2013 / 00:30:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !BenchmarkInstance class methodsFor:'documentation'!

--- a/s/BenchmarkResult.st	Tue May 28 23:24:05 2013 +0100
+++ b/s/BenchmarkResult.st	Fri May 31 00:31:43 2013 +0100
@@ -27,12 +27,10 @@
 initialize
     "Invoked when a new instance is created."
 
-    "/ please change as required (and remove this comment)
     outcomes := Set new.
 
-    "/ super initialize.   -- commented since inherited method does nothing
-
     "Modified: / 27-05-2013 / 18:57:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 31-05-2013 / 00:31:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !BenchmarkResult methodsFor:'running-private'!

--- a/s/BenchmarkSuite.st	Tue May 28 23:24:05 2013 +0100
+++ b/s/BenchmarkSuite.st	Fri May 31 00:31:43 2013 +0100
@@ -53,12 +53,10 @@
 initialize
     "Invoked when a new instance is created."
 
-    "/ please change as required (and remove this comment)
     benchmarks := Set new.
 
-    "/ super initialize.   -- commented since inherited method does nothing
-
     "Modified: / 27-05-2013 / 18:57:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 31-05-2013 / 00:31:11 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !BenchmarkSuite methodsFor:'running'!

--- a/s/benchmark-runner.st	Tue May 28 23:24:05 2013 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,37 +0,0 @@
-| pp wd i p |
-
-"Search for package path, bit hacky but..."
-wd := Filename currentDirectory.
-pp := nil.
-p := wd.
-i := 10."How many super-directories try"
-[i > 0 and:[pp == nil]] whileTrue:[
-        p := p / '..'. i := i - 1.
-        ((p / 'stx' / 'libbasic') exists and:[(p / 'stx' / 'libcomp') exists])
-                ifTrue:[pp := p]].
-pp
-        ifNil:
-                [Stderr nextPutAll: 'ERROR: Cannot find package path'.
-                Smalltalk exit: 16]
-        ifNotNil:
-                [Smalltalk packagePath add: pp pathName].
-
-(Smalltalk commandLineArguments includes:'--debug') ifTrue:[
-    Stderr nextPutAll:'Package path:'; cr.
-    Smalltalk packagePath do:[:each|
-       Stderr nextPutAll:'  '; nextPutAll: each; cr.
-    ].
-
-    Smalltalk beHeadless: (OperatingSystem getEnvironment: 'DISPLAY') isNil.
-] ifFalse: [
-	Smalltalk beHeadless: true.
-].
-
-(Smalltalk at:#'JavaBenchmarkRunner') isNil ifTrue:[
-    (Smalltalk loadPackage: 'jv:calipel/s') ifFalse:[
-        Stderr nextPutAll:'ERROR: cannot load jv:calipel/s'.
-        Smalltalk exit: 17
-    ].
-].
-
-Smalltalk addStartBlock:[(Smalltalk at:#'BenchmarkRunner') start].

--- a/s/s.rc	Tue May 28 23:24:05 2013 +0100
+++ b/s/s.rc	Fri May 31 00:31:43 2013 +0100
@@ -25,7 +25,7 @@
       VALUE "LegalCopyright", "My CopyRight or CopyLeft\0"
       VALUE "ProductName", "ProductName\0"
       VALUE "ProductVersion", "6.2.3.0\0"
-      VALUE "ProductDate", "Tue, 28 May 2013 19:23:47 GMT\0"
+      VALUE "ProductDate", "Thu, 30 May 2013 23:31:23 GMT\0"
     END
 
   END