--- a/Registry.st	Sat Jun 15 15:23:16 1996 +0200
+++ b/Registry.st	Sat Jun 15 15:25:22 1996 +0200
@@ -243,19 +243,21 @@
 
 !Registry methodsFor:'restart handling'!
 
-update:aParameter
-    aParameter == #earlyRestart ifTrue:[
+update:something with:aParameter from:changedObject
+    something == #earlyRestart ifTrue:[
         handleArray notNil ifTrue:[
             handleArray atAllPut:nil
         ]
     ].
-"/    aParameter == #returnFromSnapshot ifTrue:[
+"/    something == #returnFromSnapshot ifTrue:[
 "/        cleanState := true
 "/    ]
+
+    "Created: 15.6.1996 / 15:24:41 / cg"
 ! !
 
 !Registry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.27 1996-06-14 14:07:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.28 1996-06-15 13:25:22 cg Exp $'
 ! !