--- a/s/BenchmarkReport.st	Thu Sep 19 22:12:36 2013 +0100
+++ b/s/BenchmarkReport.st	Thu Sep 19 23:32:35 2013 +0100
@@ -1,7 +1,7 @@
 "{ Package: 'jv:calipel/s' }"
 
 Object subclass:#BenchmarkReport
-	instanceVariableNames:'stream result name'
+	instanceVariableNames:'stream result name description'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'CalipeL-S-Core-Reports'
@@ -33,10 +33,20 @@
 
 !BenchmarkReport methodsFor:'accessing'!
 
+description
+    ^ description notNil ifTrue:[description] ifFalse:['Default'].
+
+    "Modified: / 19-09-2013 / 22:45:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+description:aString
+    description := aString.
+!
+
 name
-    ^ name ? '<unnamed>'
+    ^ name notNil ifTrue:[name] ifFalse:['default']
 
-    "Modified: / 12-08-2013 / 18:18:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 19-09-2013 / 23:29:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 name:aString