--- a/Array.st	Thu Jan 04 12:12:03 1996 +0100
+++ b/Array.st	Thu Jan 04 18:02:20 1996 +0100
@@ -171,9 +171,9 @@
 		 * (especially for self, but also for backtrace in case of
 		 *  allocation failure)
 		 */
-		PROTECT_CONTEXT
+		__PROTECT_CONTEXT__
 		_qAlignedNew(newobj, instsize, SENDER);
-		UNPROTECT_CONTEXT
+		__UNPROTECT_CONTEXT__
 		if (newobj != nil) {
 		    goto ok;
 		}
@@ -392,11 +392,11 @@
 
     if (__qClass(self) == Array) {
 	sz = __qSize(self) + sizeof(OBJ);
-	PROTECT(something);
-	PROTECT(self);
+	__PROTECT__(something);
+	__PROTECT__(self);
 	_qAlignedNew(nObj, sz, __context);
-	UNPROTECT(self);
-	UNPROTECT(something);
+	__UNPROTECT__(self);
+	__UNPROTECT__(something);
 
 	if (nObj) {
 	    _InstPtr(nObj)->o_class = Array;
@@ -1338,4 +1338,4 @@
 !Array class methodsFor:'documentation'!
 
 version
-^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.51 1996-01-04 01:22:40 cg Exp $'! !
+^ '$Header: /cvs/stx/stx/libbasic/Array.st,v 1.52 1996-01-04 17:02:07 cg Exp $'! !