--- a/Array.st	Tue Sep 02 19:40:57 1997 +0200
+++ b/Array.st	Tue Sep 02 22:56:14 1997 +0200
@@ -107,7 +107,7 @@
 
 	    nInstVars += nindexedinstvars;
 	    instsize = OHDR_SIZE + __OBJS2BYTES__(nInstVars);
-	    if (__CanDoQuickAlignedNew(instsize)) {
+	    if (__CanDoQuickAlignedNew(instsize)) {	/* OBJECT ALLOCATION */
 		/*
 		 * the most common case
 		 */
@@ -452,7 +452,7 @@
     if (__qClass(self) == Array) {
 	sz = __qSize(self) + sizeof(OBJ);
 	__PROTECT2__(something, self);
-	__qAlignedNew(nObj, sz);
+	__qAlignedNew(nObj, sz);	/* OBJECT ALLOCATION */
 	__UNPROTECT2__(self, something);
 
 	if (nObj) {
@@ -2215,5 +2215,5 @@
 !Array class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.97 1997-08-20 17:20:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.98 1997-09-02 20:51:59 cg Exp $'
 ! !