--- a/WriteStream.st	Tue Sep 02 19:40:57 1997 +0200
+++ b/WriteStream.st	Tue Sep 02 22:56:14 1997 +0200
@@ -249,6 +249,8 @@
     coll = __INST(collection);
     p = __INST(position);
 
+#define NO_PRIM_STREAM
+#ifndef NO_PRIM_STREAM
     if (__isNonNilObject(coll) && __isSmallInteger(p)) {
         pos = __intVal(p);
         wL = __INST(writeLimit);
@@ -299,6 +301,7 @@
             }
         }
     }
+#endif
 %}.
     (writeLimit isNil
     or:[position <= writeLimit]) ifTrue:[
@@ -389,5 +392,5 @@
 !WriteStream class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.36 1997-08-22 13:18:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/WriteStream.st,v 1.37 1997-09-02 20:56:14 cg Exp $'
 ! !