--- a/HistoryManager.st	Fri Oct 30 22:16:14 1998 +0100
+++ b/HistoryManager.st	Mon Nov 09 21:38:01 1998 +0100
@@ -395,7 +395,7 @@
 
 "/        Transcript show: 'Class definition: ', changedClass printString;cr.
         fullHistoryUpdate == true ifTrue:[
-            self addHistory:#modification with:'class definition' toHistoryMethodOf:changedClass.
+            self addHistory:#modification with:'class definition' toHistoryMethodOf:changedObject.
         ].
         ^ self
     ].
@@ -846,7 +846,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.42 1998-07-20 11:15:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.43 1998-11-09 20:38:01 cg Exp $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -992,7 +992,7 @@
      The positionvalue is normally used to remove the HistoryLines from the sourceCode.
      Claus: return nil, if the string is not a valid historyString."
 
-    | inst anArray type aTime aDate userName idx what strings|
+    | inst anArray type aTime aDate userName idx what|
 
     inst := self basicNew.  
 
@@ -1478,6 +1478,6 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.42 1998-07-20 11:15:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.43 1998-11-09 20:38:01 cg Exp $'
 ! !
 HistoryManager initialize!