--- a/s/BenchmarkSuite.st	Fri May 31 12:13:11 2013 +0100
+++ b/s/BenchmarkSuite.st	Wed Jun 05 10:45:29 2013 +0100
@@ -18,7 +18,7 @@
     [ current notNil ] whileTrue:[
         current selectorsAndMethodsDo:[:selector :method|
             (method pragmaAt:#benchmark) notNil ifTrue:[
-                suite addBenchmark: (BenchmarkInstance class: class benchmark: selector)
+                suite addBenchmark: (BenchmarkInstance class:class selector:selector)
             ].
         ].
         current := current superclass.
@@ -28,8 +28,8 @@
     "Created: / 28-05-2013 / 19:49:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-class: class benchmark: benchmark
-    ^BenchmarkInstance class: class benchmark: benchmark
+class:class selector:benchmark 
+    ^ BenchmarkInstance class:class selector:benchmark
 
     "Created: / 28-05-2013 / 19:46:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !