--- a/HistoryManager.st	Thu Sep 27 20:37:25 2012 +0100
+++ b/HistoryManager.st	Tue Oct 02 12:23:33 2012 +0100
@@ -597,7 +597,8 @@
     newMethod compilerClass == Compiler ifFalse:[^ self].
 
     oldMethod isNil ifTrue:[
-        whatChange := #creation
+        whatChange := #creation.
+        newHistories := OrderedCollection new.
     ] ifFalse:[
         whatChange := #modification.
 
@@ -680,6 +681,7 @@
     ].
 
     "Created: / 30-06-2011 / 16:51:19 / cg"
+    "Modified: / 02-10-2012 / 13:22:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !HistoryManager methodsFor:'initialization'!
@@ -1020,7 +1022,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.83 2012/07/31 12:31:47 vrany Exp $'
+    ^ '$Id: HistoryManager.st 1972 2012-10-02 11:23:33Z vranyj1 $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1715,11 +1717,11 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Id: HistoryManager.st 1957 2012-09-05 11:45:38Z vranyj1 $'
+    ^ '$Id: HistoryManager.st 1972 2012-10-02 11:23:33Z vranyj1 $'
 !
 
 version_SVN
-    ^ '$Id: HistoryManager.st 1957 2012-09-05 11:45:38Z vranyj1 $'
+    ^ '$Id: HistoryManager.st 1972 2012-10-02 11:23:33Z vranyj1 $'
 ! !
 
 HistoryManager initialize!