--- a/HistoryManager.st	Tue Jul 09 16:12:43 2002 +0200
+++ b/HistoryManager.st	Thu Jul 11 22:12:49 2002 +0200
@@ -229,7 +229,7 @@
     histStream := '' writeStream.
     histStream nextPutLine:'history'.
     histStream nextPutLine:(HistoryLine newCreated printString).
-    Compiler 
+    CodeGeneratorTool
         compile:(histStream contents)
         forClass:aClass 
         inCategory:'documentation'.
@@ -851,7 +851,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.47 2001-10-18 13:02:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.48 2002-07-11 20:12:49 cg Exp $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1485,6 +1485,6 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.47 2001-10-18 13:02:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.48 2002-07-11 20:12:49 cg Exp $'
 ! !
 HistoryManager initialize!