--- a/Registry.st	Mon Jun 03 19:49:37 2013 +0200
+++ b/Registry.st	Mon Jun 03 20:02:40 2013 +0200
@@ -266,7 +266,9 @@
 
     handleArray at:index put:nil.
     registeredObjects at:index put:nil.
-    (anObject notNil and:[anObject ~~ 0]) ifTrue:[ indexTable removeKey:anObject ].
+    (anObject notNil and:[anObject ~~ 0]) ifTrue:[ 
+        indexTable removeKey:anObject ifAbsent:[]
+    ].
     tally := tally - 1.
 ! !
 
@@ -524,10 +526,10 @@
 !Registry class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.63 2013-03-31 00:47:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.64 2013-06-03 18:02:40 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.63 2013-03-31 00:47:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.64 2013-06-03 18:02:40 cg Exp $'
 ! !