--- a/HistoryManager.st	Sat Jul 09 17:03:22 2011 +0200
+++ b/HistoryManager.st	Sat Jul 16 19:09:29 2011 +0200
@@ -565,6 +565,7 @@
      whatChange pos|
 
     changedClass theMetaclass compilerClass == Compiler ifFalse:[^ self].
+    (oldMethod notNil and:[oldMethod compilerClass ~~ Compiler]) ifTrue:[^ self].
 
     "/ ok; it is a changed method
 
@@ -583,6 +584,7 @@
     newHistories := self class getAllHistoriesFrom:newSource.
 
     newMethod := changedClass compiledMethodAt:selector.
+    newMethod compilerClass == Compiler ifFalse:[^ self].
 
     oldMethod isNil ifTrue:[
         whatChange := #creation
@@ -995,7 +997,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.78 2011-07-08 09:29:59 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.79 2011-07-16 17:09:29 cg Exp $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1690,7 +1692,7 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.78 2011-07-08 09:29:59 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.79 2011-07-16 17:09:29 cg Exp $'
 ! !
 
 HistoryManager initialize!