--- a/RegressionTests__StreamTests.st	Fri Apr 22 15:35:47 2016 +0200
+++ b/RegressionTests__StreamTests.st	Fri Apr 22 15:38:43 2016 +0200
@@ -453,6 +453,33 @@
     "
 !
 
+test22_readWriteStreamWithRewrite
+    |s|
+
+         "0123456789012345678901"
+    s := ReadWriteStream on:(String new).
+    self assert:(s position == 0).
+    self assert:(s readLimit == 0).
+
+    s nextPutAll:'hello world'.
+    self assert:(s position == 11).
+    self assert:(s readLimit == 11).
+
+    s position:(s position - 5).
+    self assert:(s position = 6).
+    s nextPutAll:'W'.
+    
+    self assert:(s position = 7).
+    self assert:(s readLimit = 11).
+    self assert:(s contents = 'hello World').
+
+    
+    "
+     self run:#test22_readWriteStreamWithRewrite
+     self new test21_readWriteStreamWithPosition
+    "
+!
+
 test30_readWriteBinary
     |testVector s val|