--- a/s/benchmarks/micro/BenchmarkPerform.st	Fri Feb 28 15:38:34 2014 +0000
+++ b/s/benchmarks/micro/BenchmarkPerform.st	Fri Feb 28 16:09:24 2014 +0000
@@ -12,24 +12,18 @@
 
 documentation
 "
- Replace 'Object', 'NewClass1' and
- the empty string arguments by true values.
+    Simple benchmark to measure performance of Object>>perform:
 
- Install (or change) the class by 'accepting',
- either via the menu or the keyboard (usually CMD-A).
-
- You can also change the category simply by editing
- the categoryString and accepting.
+    TBW...
 
- To be nice to others (and yourself later), do not forget to
- add some documentation; preferably under the classes documentation
- protocol.
- (see the `create documentation stubs' item in the methodList menu;
-  switch from instance to class to find this menu item.)
+    [author:]
+        Jan Vrany <jan.vrany@fit.cvut.cz>
 
- Notice, that ST/X uses the convention to document the class using
- comment-only class methods (however, ST80 comments are supported and
- can be changed via the class-documentation menu).
+    [instance variables:]
+
+    [class variables:]
+
+    [see also:]
 
 "
 ! !
@@ -111,30 +105,6 @@
     "Modified: / 10-06-2013 / 21:53:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!BenchmarkPerform methodsFor:'accessing'!
-
-recdistrib
-    ^ recdistrib
-!
-
-recdistrib:aSymbol
-    <parameter: #recdistrib type: #Symbol default: #uniform values: #(#sequential #uniform #normal)>
-    recdistrib := aSymbol.
-
-    "Modified: / 01-08-2013 / 20:16:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-seldistrib
-    ^ seldistrib
-!
-
-seldistrib:aSymbol
-    <parameter: #seldistrib type: #Symbol default: #uniform values: #(#sequential #uniform #normal)>
-    seldistrib := aSymbol.
-
-    "Modified: / 01-08-2013 / 20:17:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
 !BenchmarkPerform methodsFor:'benchmarks'!
 
 benchmark0
@@ -464,6 +434,28 @@
     nselectors := anInteger.
 
     "Modified: / 20-07-2013 / 01:07:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+recdistrib
+    ^ recdistrib
+!
+
+recdistrib:aSymbol
+    <parameter: #recdistrib type: #Symbol default: #uniform values: #(#sequential #uniform #normal)>
+    recdistrib := aSymbol.
+
+    "Modified: / 01-08-2013 / 20:16:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+seldistrib
+    ^ seldistrib
+!
+
+seldistrib:aSymbol
+    <parameter: #seldistrib type: #Symbol default: #uniform values: #(#sequential #uniform #normal)>
+    seldistrib := aSymbol.
+
+    "Modified: / 01-08-2013 / 20:17:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !BenchmarkPerform methodsFor:'running'!