--- a/ByteArray.st	Sun Jul 23 13:54:53 1995 +0200
+++ b/ByteArray.st	Thu Jul 27 06:01:12 1995 +0200
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.28 1995-07-22 19:21:30 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.29 1995-07-27 04:00:16 claus Exp $
 '!
 
 !ByteArray class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.28 1995-07-22 19:21:30 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.29 1995-07-27 04:00:16 claus Exp $
 "
 !
 
@@ -123,7 +123,6 @@
     OBJ newobj;
     INT instsize, nInstVars, nindexedinstvars;
     REGISTER OBJ *op;
-    extern OBJ new();
 
     if (__isSmallInteger(anInteger)) {
 	nindexedinstvars = _intVal(anInteger);
@@ -146,6 +145,7 @@
 	    UNPROTECT_CONTEXT
 	    if (newobj != nil) {
 		_InstPtr(newobj)->o_class = self;
+		__qSTORE(newobj, self);
 		if (nInstVars) {
 		    /*
 		     * still have to nil out named instvars ...