--- a/ExternalStream.st	Tue Feb 15 15:33:34 1994 +0100
+++ b/ExternalStream.st	Fri Feb 25 13:58:55 1994 +0100
@@ -22,7 +22,7 @@
 COPYRIGHT (c) 1988 by Claus Gittinger
               All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.13 1994-01-16 03:40:51 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ExternalStream.st,v 1.14 1994-02-25 12:57:32 claus Exp $
 
 written 88 by claus
 '!
@@ -1447,7 +1447,7 @@
     if (_INST(filePointer) != nil) {
         if (_INST(mode) != _readonly) {
             if (_INST(binary) != true) {
-                if (_isCharacter(aCharacter)) {
+                if (__isCharacter(aCharacter)) {
                     c = _intVal(_CharacterInstPtr(aCharacter)->c_asciivalue);
     doWrite:
                     f = MKFD(_INST(filePointer));
@@ -1512,12 +1512,12 @@
 
     if ((_INST(filePointer) != nil) && (_INST(mode) != _readonly)) {
         cp = NULL;
-        if (_isString(aCollection) || _isSymbol(aCollection)) {
+        if (__isString(aCollection) || __isSymbol(aCollection)) {
             cp = _stringVal(aCollection);
             len = _stringSize(aCollection);
         } else {
             if (_INST(binary) == true) {
-                if (_isByteArray(aCollection)) {
+                if (__isByteArray(aCollection)) {
                     cp = _ByteArrayInstPtr(aCollection)->ba_element;
                     len = _byteArraySize(aCollection);
                 }
@@ -1582,12 +1582,12 @@
         if (_isSmallInteger(start) && _isSmallInteger(stop)) {
             cp = NULL;
             if (_INST(binary) != true) {
-                if (_isString(aCollection) || _isSymbol(aCollection)) {
+                if (__isString(aCollection) || __isSymbol(aCollection)) {
                     cp = _stringVal(aCollection);
                     len = _stringSize(aCollection);
                 }
             } else {
-                if (_isByteArray(aCollection)) {
+                if (__isByteArray(aCollection)) {
                     cp = _ByteArrayInstPtr(aCollection)->ba_element;
                     len = _byteArraySize(aCollection);
                 }
@@ -1815,7 +1815,7 @@
 
     if ((_INST(filePointer) != nil) && (_INST(mode) != _readonly)) {
         if (_INST(binary) != true) {
-            if (_isString(aString)) {
+            if (__isString(aString)) {
                 f = MKFD(_INST(filePointer));
                 s = (char *) _stringVal(aString);
                 len = _stringSize(aString);
@@ -1898,7 +1898,7 @@
      && (_INST(buffered) == true)
 #endif
     ) {
-        if ((aStringOrNil == nil) || _isString(aStringOrNil)) {
+        if ((aStringOrNil == nil) || __isString(aStringOrNil)) {
             if (aStringOrNil != nil) {
                 matchString = (char *) _stringVal(aStringOrNil);
                 matchLen = _stringSize(aStringOrNil);
@@ -1950,7 +1950,7 @@
     extern int _immediateInterrupt;
     int savInt;
 
-    if (_isString(aString)) {
+    if (__isString(aString)) {
         matchString = (char *) _stringVal(aString);
         l = _stringSize(aString);
 
@@ -2092,7 +2092,7 @@
     if ((_INST(binary) == true) && _isSmallInteger(anObject)) {
         peekValue = _intVal(anObject) & 0xFF;
     } else {
-        if ((_INST(binary) != true) && _isCharacter(anObject)) {
+        if ((_INST(binary) != true) && __isCharacter(anObject)) {
             peekValue = _intVal(_characterVal(anObject)) & 0xFF;
         } else
             peekValue = -1;
@@ -2138,7 +2138,7 @@
     if ((_INST(binary) == true) && _isSmallInteger(anObject)) {
         peekValue = _intVal(anObject) & 0xFF;
     } else {
-        if ((_INST(binary) != true) && _isCharacter(anObject)) {
+        if ((_INST(binary) != true) && __isCharacter(anObject)) {
             peekValue = _intVal(_characterVal(anObject)) & 0xFF;
         } else
             peekValue = -1;