--- a/WriteStream.st	Tue Apr 06 18:36:31 2004 +0200
+++ b/WriteStream.st	Tue Apr 06 18:37:42 2004 +0200
@@ -384,7 +384,7 @@
                 }
             } else if (cls == @global(ByteArray)) {
                 if (__isSmallInteger(anObject) 
-                 && ((ch = __intVal(anObject)) <= 255) /* ch is unsigned */
+                 && ((ch = __intVal(anObject)) <= 0xFF) /* ch is unsigned */
                  && (pos <= __byteArraySize(coll))) {
                     __ByteArrayInstPtr(coll)->ba_element[pos-1] = ch;
                     if ((__readLimit >= 0) && (pos >= __readLimit)) {
@@ -405,7 +405,7 @@
                 }
             } else if (cls == @global(Unicode16String)) {
                 if (__isCharacter(anObject) 
-                 && ((ch = __intVal(__characterVal(anObject))) <= 32768) /* ch is unsigned */
+                 && ((ch = __intVal(__characterVal(anObject))) <= 0xFFFF) /* ch is unsigned */
                  && (pos <= __unicode16StringSize(coll))) {
                      __Unicode16StringInstPtr(coll)->s_element[pos-1] = ch;
                     if ((__readLimit >= 0) && (pos >= __readLimit)) {
@@ -524,5 +524,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.56 2004-04-06 13:37:36 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.57 2004-04-06 16:37:42 stefan Exp $'
 ! !