--- a/WriteStr.st	Wed Apr 03 00:12:47 1996 +0200
+++ b/WriteStr.st	Wed Apr 03 00:14:55 1996 +0200
@@ -205,30 +205,30 @@
     OBJ coll;
     OBJ p, l;
 
-    coll = _INST(collection);
-    p = _INST(position);
+    coll = __INST(collection);
+    p = __INST(position);
 
     if (__isNonNilObject(coll) && __isSmallInteger(p)) {
 
-	pos = _intVal(p);
-	l = _INST(writeLimit);
+	pos = __intVal(p);
+	l = __INST(writeLimit);
 
 	if ((l == nil)
-	 || (__isSmallInteger(l) && (pos <= _intVal(l)))) {
+	 || (__isSmallInteger(l) && (pos <= __intVal(l)))) {
 	    OBJ cls;
 
 	    cls = __qClass(coll);
 
 	    if (cls == @global(String)) {
 		if (__isCharacter(anObject) 
-		 && (pos <= _stringSize(coll))) {
-		    ch = _intVal(_characterVal(anObject));
+		 && (pos <= __stringSize(coll))) {
+		    ch = __intVal(_characterVal(anObject));
 		    if ((ch >= 0) && (ch <= 255)) {
-			_StringInstPtr(coll)->s_element[pos-1] = ch;
-			_INST(position) = _MKSMALLINT(pos + 1);
-			if (__isSmallInteger(_INST(readLimit))
-			 && (pos >= _intVal(_INST(readLimit)))) {
-			    _INST(readLimit) = _MKSMALLINT(pos);
+			__StringInstPtr(coll)->s_element[pos-1] = ch;
+			__INST(position) = __MKSMALLINT(pos + 1);
+			if (__isSmallInteger(__INST(readLimit))
+			 && (pos >= __intVal(__INST(readLimit)))) {
+			    __INST(readLimit) = __MKSMALLINT(pos);
 			}
 			RETURN ( anObject );
 		    }
@@ -236,26 +236,26 @@
 	    } else {
 		if (cls == @global(ByteArray)) {
 		    if (__isSmallInteger(anObject) 
-		     && ((ch = _intVal(anObject)) >= 0)
+		     && ((ch = __intVal(anObject)) >= 0)
 		     && (ch <= 255)
 		     && (pos <= _byteArraySize(coll))) {
-			_ByteArrayInstPtr(coll)->ba_element[pos-1] = ch;
-			_INST(position) = _MKSMALLINT(pos + 1);
-			if (__isSmallInteger(_INST(readLimit))
-			 && (pos >= _intVal(_INST(readLimit)))) {
-			    _INST(readLimit) = _MKSMALLINT(pos);
+			__ByteArrayInstPtr(coll)->ba_element[pos-1] = ch;
+			__INST(position) = __MKSMALLINT(pos + 1);
+			if (__isSmallInteger(__INST(readLimit))
+			 && (pos >= __intVal(__INST(readLimit)))) {
+			    __INST(readLimit) = __MKSMALLINT(pos);
 			}
 			RETURN ( anObject );
 		    }
 		} else {
 		    if (cls == @global(Array)) {
 			if (pos <= _arraySize(coll)) {
-			     _ArrayInstPtr(coll)->a_element[pos-1] = anObject;
+			     __ArrayInstPtr(coll)->a_element[pos-1] = anObject;
 			    __STORE(coll, anObject);
-			    _INST(position) = _MKSMALLINT(pos + 1);
-			    if (__isSmallInteger(_INST(readLimit))
-			     && (pos >= _intVal(_INST(readLimit)))) {
-				_INST(readLimit) = _MKSMALLINT(pos);
+			    __INST(position) = __MKSMALLINT(pos + 1);
+			    if (__isSmallInteger(__INST(readLimit))
+			     && (pos >= __intVal(__INST(readLimit)))) {
+				__INST(readLimit) = __MKSMALLINT(pos);
 			    }
 			    RETURN ( anObject );
 			}
@@ -311,5 +311,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WriteStr.st,v 1.24 1996-01-05 14:21:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/WriteStr.st,v 1.25 1996-04-02 22:14:55 cg Exp $'
 ! !