--- a/WriteStream.st	Fri Jul 08 18:41:53 2005 +0200
+++ b/WriteStream.st	Fri Jul 08 19:15:03 2005 +0200
@@ -381,9 +381,9 @@
                     __StringInstPtr(coll)->s_element[pos-1] = ch;
 advancePositionAndReturn: ;            
                     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 ( anObject );
                 }
             } else if (cls == @global(ByteArray)) {
@@ -551,9 +551,9 @@
                     __StringInstPtr(coll)->s_element[pos-1] = ch;
     advancePositionAndReturn: ;            
                     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 ( anObject );
                 }
             } else if (cls == @global(ByteArray)) {
@@ -589,5 +589,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.62 2005-04-26 08:41:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.63 2005-07-08 17:15:03 cg Exp $'
 ! !