--- a/CharacterWriteStream.st	Fri Jul 08 18:41:53 2005 +0200
+++ b/CharacterWriteStream.st	Fri Jul 08 19:15:03 2005 +0200
@@ -140,9 +140,9 @@
                 if (pos <= __stringSize(coll)) {
                     __StringInstPtr(coll)->s_element[pos-1] = ch;
                     if ((__readLimit >= 0) && (pos >= __readLimit)) {
-                        __INST(readLimit) = __MKSMALLINT(pos);
+                        __INST(readLimit) = __mkSmallInteger(pos);
                     }
-                    __INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 1);
+                    __INST(position) = __mkSmallInteger(__intVal(__INST(position)) + 1);
                     RETURN ( aCharacter );
                 }
             } else if (cls == @global(Unicode16String)) {
@@ -152,18 +152,18 @@
                 if (pos <= __unicode16StringSize(coll)) {
                      __Unicode16StringInstPtr(coll)->s_element[pos-1] = ch;
                     if ((__readLimit >= 0) && (pos >= __readLimit)) {
-                        __INST(readLimit) = __MKSMALLINT(pos);
+                        __INST(readLimit) = __mkSmallInteger(pos);
                     }
-                    __INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 1);
+                    __INST(position) = __mkSmallInteger(__intVal(__INST(position)) + 1);
                     RETURN ( aCharacter );
                 }
             } else if (cls == @global(Unicode32String)) {
                 if ((pos <= __unicode32StringSize(coll))) {
                      __Unicode32StringInstPtr(coll)->s_element[pos-1] = ch;
                     if ((__readLimit >= 0) && (pos >= __readLimit)) {
-                        __INST(readLimit) = __MKSMALLINT(pos);
+                        __INST(readLimit) = __mkSmallInteger(pos);
                     }
-                    __INST(position) = __MKSMALLINT(__intVal(__INST(position)) + 1);
+                    __INST(position) = __mkSmallInteger(__intVal(__INST(position)) + 1);
                     RETURN ( aCharacter );
                 }
             }
@@ -216,5 +216,5 @@
 !CharacterWriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/CharacterWriteStream.st,v 1.3 2004-04-21 14:12:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/CharacterWriteStream.st,v 1.4 2005-07-08 17:15:01 cg Exp $'
 ! !