--- a/Array.st	Fri Feb 09 13:22:34 1996 +0100
+++ b/Array.st	Fri Feb 09 16:36:43 1996 +0100
@@ -172,7 +172,7 @@
 		 *  allocation failure)
 		 */
 		__PROTECT_CONTEXT__
-		__qAlignedNew(newobj, instsize, SENDER);
+		newobj = __new(instsize);
 		__UNPROTECT_CONTEXT__
 		if (newobj != nil) {
 		    goto ok;
@@ -857,7 +857,7 @@
 	if (index >= 0) {
 	    nIndex = __BYTES2OBJS__(__qSize(self) - OHDR_SIZE);
 	    endIndex = _intVal(index2) - 1;
-	    if (endIndex < nIndex) {
+	    if ((endIndex >= index) && (endIndex < nIndex)) {
 		dst = &(_InstPtr(self)->i_instvars[index]);
 #ifdef memset4
 		memset4(dst, anObject, (endIndex-index+1));
@@ -1361,4 +1361,4 @@
 !Array class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.55 1996-02-08 21:47:08 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.56 1996-02-09 15:36:43 cg Exp $'! !