--- a/HandleRegistry.st	Thu Nov 23 02:52:35 1995 +0100
+++ b/HandleRegistry.st	Thu Nov 23 03:01:22 1995 +0100
@@ -11,10 +11,10 @@
 "
 
 Registry subclass:#HandleRegistry
-       instanceVariableNames:''
-       classVariableNames:''
-       poolDictionaries:''
-       category:'System-Support'
+	 instanceVariableNames:''
+	 classVariableNames:''
+	 poolDictionaries:''
+	 category:'System-Support'
 !
 
 !HandleRegistry class methodsFor:'documentation'!
@@ -33,10 +33,6 @@
 "
 !
 
-version
-    ^ '$Header: /cvs/stx/stx/libbasic/HandleRegistry.st,v 1.4 1995-11-11 15:23:25 cg Exp $'
-!
-
 documentation
 "
     HandleRegistries are like Registries, in that they watch for the death of
@@ -45,6 +41,10 @@
     Use Registry for objects which know themself how to clean up;
     use HandleRegistry, if someone else does the cleanup.
 "
+!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/HandleRegistry.st,v 1.5 1995-11-23 02:00:59 cg Exp $'
 ! !
 
 !HandleRegistry methodsFor:'dispose handling'!
@@ -55,14 +55,15 @@
 
 !HandleRegistry methodsFor:'redefined to block'!
 
-registerChange:anObject
-    "not useful for HandleRegistry"
+register:anObject
+    "not useful for HandleRegistry - use #register:as:"
 
     self shouldNotImplement
 !
 
-register:anObject
-    "not useful for HandleRegistry - use #register:as:"
+registerChange:anObject
+    "not useful for HandleRegistry"
 
     self shouldNotImplement
 ! !
+