--- a/Registry.st	Tue Jun 06 06:01:20 1995 +0200
+++ b/Registry.st	Tue Jun 27 04:15:21 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.14 1995-03-25 22:08:34 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.15 1995-06-27 02:14:12 claus Exp $
 '!
 
 !Registry class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.14 1995-03-25 22:08:34 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.15 1995-06-27 02:14:12 claus Exp $
 "
 !
 
@@ -140,7 +140,7 @@
     registeredObjects isNil ifTrue:[
 	registeredObjects := WeakArray new:10.
 	registeredObjects watcher:self.
-	phantomArray := Array new:10.
+	phantomArray := Array basicNew:10.
 	registeredObjects at:1 put:anObject.
 	phantomArray at:1 put:phantom.
 	cleanState := true.
@@ -182,7 +182,7 @@
     registeredObjects watcher:self.
     registeredObjects at:index put:anObject.
 
-    newPhantoms := Array new:(size * 2).
+    newPhantoms := Array basicNew:(size * 2).
     newPhantoms replaceFrom:1 to:size with:phantomArray.
     phantomArray := newPhantoms.
     phantomArray at:index put:phantom.