--- a/Registry.st	Fri Jun 14 13:13:01 1996 +0200
+++ b/Registry.st	Fri Jun 14 16:07:25 1996 +0200
@@ -148,10 +148,18 @@
 
     |index|
 
-    index := registeredObjects identityIndexOf:anObject ifAbsent:0.
+    registeredObjects isNil ifTrue:[
+        index := 0
+    ] ifFalse:[
+        index := registeredObjects identityIndexOf:anObject ifAbsent:0.
+    ].
     index ~~ 0 ifTrue:[
-	handleArray at:index put:anObject shallowCopyForFinalization.
+        handleArray at:index put:anObject shallowCopyForFinalization.
+    ] ifFalse:[
+        self register:anObject
     ]
+
+    "Modified: 14.6.1996 / 15:06:07 / cg"
 !
 
 unregister:anObject
@@ -249,5 +257,5 @@
 !Registry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.26 1996-06-14 11:13:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.27 1996-06-14 14:07:25 cg Exp $'
 ! !