--- a/HandleRegistry.st	Mon Nov 11 12:31:08 1996 +0100
+++ b/HandleRegistry.st	Mon Nov 11 12:36:42 1996 +0100
@@ -49,7 +49,11 @@
 !HandleRegistry methodsFor:'dispose handling'!
 
 informDispose:someHandle
+    "an element was disposed; let my dependents know about this"
+
     self changed:#finalize with:someHandle from:self
+
+    "Modified: 11.11.1996 / 12:35:27 / cg"
 ! !
 
 !HandleRegistry methodsFor:'redefined to block'!
@@ -69,5 +73,5 @@
 !HandleRegistry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/HandleRegistry.st,v 1.7 1996-04-25 15:59:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/HandleRegistry.st,v 1.8 1996-11-11 11:36:42 cg Exp $'
 ! !