--- a/Registry.st	Tue Jun 18 11:40:53 1996 +0200
+++ b/Registry.st	Tue Jun 18 17:14:55 1996 +0200
@@ -107,7 +107,7 @@
     index ~~ 0 ifTrue:[
         "already registered"
         handleArray at:index put:aHandle.
-        self error:'object is already registered'.
+        ('REGISTRY: object (' , (registeredObjects at:index) printString , ' is already registered') infoPrintCR.
         ^ self
     ].
 
@@ -141,6 +141,8 @@
     newPhantoms replaceFrom:1 to:size with:handleArray.
     handleArray := newPhantoms.
     handleArray at:index put:aHandle.
+
+    "Modified: 18.6.1996 / 13:22:13 / cg"
 !
 
 registerChange:anObject
@@ -259,5 +261,5 @@
 !Registry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.28 1996-06-15 13:25:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.29 1996-06-18 15:14:55 cg Exp $'
 ! !