--- a/HistoryManager.st	Tue Apr 03 13:29:20 2012 +0100
+++ b/HistoryManager.st	Tue Apr 03 18:14:36 2012 +0100
@@ -812,7 +812,11 @@
     ].
 
     "add the actual user's historyLine."
-    histLines := (previousHistories ? histories).
+    what == #creation ifTrue:[
+        histLines := OrderedCollection new.
+    ] ifFalse:[
+        histLines := (previousHistories ? histories).
+    ].
     histLines add:newLine.
 
     doFilter ifTrue:[
@@ -833,6 +837,7 @@
     ^ wStream contents.
 
     "Modified: / 30-06-2011 / 17:07:18 / cg"
+    "Modified: / 03-04-2012 / 16:35:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 addHistory:what with:arg toHistoryMethodOf:aClass
@@ -1003,7 +1008,7 @@
 !
 
 version
-    ^ '$Id: HistoryManager.st 1909 2012-03-31 00:14:49Z vranyj1 $'
+    ^ '$Id: HistoryManager.st 1911 2012-04-03 17:14:36Z vranyj1 $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1702,7 +1707,7 @@
 !
 
 version_SVN
-    ^ '$Id: HistoryManager.st 1909 2012-03-31 00:14:49Z vranyj1 $'
+    ^ '$Id: HistoryManager.st 1911 2012-04-03 17:14:36Z vranyj1 $'
 ! !
 
 HistoryManager initialize!