--- a/HistoryManager.st	Sun Aug 27 03:51:40 1995 +0200
+++ b/HistoryManager.st	Sun Aug 27 18:25:42 1995 +0200
@@ -14,7 +14,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.2 1995-08-27 01:51:40 claus Exp $
+$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.3 1995-08-27 16:25:33 claus Exp $
 "
 !
 
@@ -94,16 +94,16 @@
 
 update: what
     (what == #restarted) ifTrue:[
-	"
-	 smalltalk is about to restart from an Image -
-	"
-	'HistoryManager initialize (via update)' printNL.
-	self initMe.
-
-	^ self
+	TheOneAndOnlyInstance notNil ifTrue:[
+	    "
+	     smalltalk is about to restart from an Image -
+	    "
+	    'HistoryManager initialize (via update)' printNL.
+	    self initMe.
+	]
     ].
 
-    "Modified: 14.08.1995 / 9:50:58 / robert"
+    "Modified: 27.8.1995 / 16:33:02 / claus"
 ! !
 
 !HistoryManager class methodsFor:'activation / deactivation'!
@@ -295,7 +295,7 @@
     fileInOrRecompiling := Class updatingChanges.
 
     changedObject isMeta ifTrue:[
-	Transcript showCr: 'metaClass = ',  changedObject printString.
+"/        Transcript showCr: 'metaClass = ',  changedObject printString.
     ].
 
     (changedObject == Smalltalk) & (something == #newClass) ifTrue:[
@@ -329,9 +329,7 @@
 	    aMethod := changedObject compiledMethodAt: #history.
 	    sourceCode := self addHistoryTo:sourceCode.
 	    aMethod source: sourceCode.
-	    "
-	    Transcript showCr: 'history updated / added'.
-	    "
+"/            Transcript showCr: 'history updated / added'.
 	    ^self
 	].
     ].    
@@ -356,14 +354,12 @@
 	    sourceCode := changedObject sourceCodeAt: someArgument.
 	    sourceCode isNil ifTrue:[
 		"method has been deleted"
-		Transcript showCr: 'method has been deleted'.
+"/                Transcript showCr: 'method has been deleted'.
 	    ] ifFalse:[
 		aMethod := changedObject compiledMethodAt: someArgument.
 		sourceCode := self addHistoryTo:sourceCode.
 		aMethod source: sourceCode.
-		"
-		Transcript showCr: 'history updated / added'.
-		"
+"/                Transcript showCr: 'history updated / added'.
 	    ].
 	    ^self
 	]. 
@@ -373,27 +369,25 @@
 	    ^self.
 	] ifFalse:[
 	    "it is a class definition"
-	    Transcript show: 'Class definition: ', changedObject printString;cr.
+"/            Transcript show: 'Class definition: ', changedObject printString;cr.
 	    sourceCode := changedObject sourceCodeAt: #history.
 	    sourceCode isNil ifTrue:[
 		"method has not been created"
-		Transcript showCr: 'method class-history has not been created'.
+"/                Transcript showCr: 'method class-history has not been created'.
 	    ] ifFalse:[
 		aMethod := changedObject compiledMethodAt: #history.
 
 		sourceCode := self addHistoryTo:sourceCode.
 		aMethod source: sourceCode.
 
-		"
-		Transcript showCr: 'history updated / added'.
-		"
+"/                Transcript showCr: 'history updated / added'.
 	    ].
 	].
     ].
 
     ^self
 
-    "Modified: 15.08.1995 / 18:31:36 / robert"
+    "Modified: 27.8.1995 / 02:14:43 / claus"
 ! !
 
 HistoryManager initialize!