--- a/reports/Builder__Report.st	Wed Jan 22 12:21:04 2014 +0100
+++ b/reports/Builder__Report.st	Wed Jan 22 12:21:11 2014 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Builder }"
 
 Object subclass:#Report
-	instanceVariableNames:'name packages format'
+	instanceVariableNames:'name ident packages format'
 	classVariableNames:'Verbose OutputDir'
 	poolDictionaries:''
 	category:'Builder-Reports'
@@ -171,6 +171,14 @@
     "Created: / 04-08-2011 / 11:55:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
+ident
+    ^ ident
+!
+
+ident:aString
+    ident := aString.
+!
+
 name
 
     ^name isNil ifTrue:[
@@ -351,7 +359,7 @@
 
 setUp
 
-    | stream | 
+    | filename stream | 
 
     packages notNil ifTrue:[
         packages do:[:pkg| self loadPackageIfNotAlready: pkg].
@@ -359,11 +367,15 @@
         packages := nil.
     ].
     format isNil ifTrue:[format := self defaultFormat].
-    stream := (OutputDir / (self encodeFilename: ('%1-%2.%3' bindWith: self name with: self defaultFileSuffix with: format defaultFileSuffix))) writeStream.
+    filename :=  '%1-%4%2.%3' bindWith: self name 
+                                  with: self defaultFileSuffix 
+                                  with: format defaultFileSuffix
+                                  with: (ident isNil ifTrue:[''] ifFalse:[ident , '-']).
+    stream := (OutputDir / (self encodeFilename:filename)) writeStream.
     format report: self stream: stream
 
     "Created: / 04-08-2011 / 12:43:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 15-05-2013 / 19:03:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 22-01-2014 / 10:06:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 tearDown