diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st
index 73411a20..eed7aded 100644
--- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st
+++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/greaseNext.putAll.startingAt..st
@@ -1,3 +1,3 @@
 accessing
 greaseNext: anInteger putAll: aCollection startingAt: startIndex
-	self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1)
\ No newline at end of file
+	encoder next: anInteger putAll: aCollection startingAt: startIndex toStream: stream 
\ No newline at end of file
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st
index f8f3e8e4..f7494a83 100644
--- a/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st
+++ b/repository/Grease-Pharo100-Core.package/GRPharoZnCodecStream.class/instance/nextPutAll..st
@@ -1,3 +1,5 @@
 streaming
 nextPutAll: aString
-	aString asString do:[ :each | self nextPut: each ]
\ No newline at end of file
+	| string |
+	string := aString asString.
+	encoder next: string size putAll: string startingAt: 1 toStream: stream 
\ No newline at end of file
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st
index 73411a20..eed7aded 100644
--- a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st
+++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/greaseNext.putAll.startingAt..st
@@ -1,3 +1,3 @@
 accessing
 greaseNext: anInteger putAll: aCollection startingAt: startIndex
-	self nextPutAll: (aCollection copyFrom: startIndex to: startIndex + anInteger - 1)
\ No newline at end of file
+	encoder next: anInteger putAll: aCollection startingAt: startIndex toStream: stream 
\ No newline at end of file
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st
index f8f3e8e4..f7494a83 100644
--- a/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st
+++ b/repository/Grease-Pharo90-Core.package/GRPharoZnUtf8CodecStream.class/instance/nextPutAll..st
@@ -1,3 +1,5 @@
 streaming
 nextPutAll: aString
-	aString asString do:[ :each | self nextPut: each ]
\ No newline at end of file
+	| string |
+	string := aString asString.
+	encoder next: string size putAll: string startingAt: 1 toStream: stream 
\ No newline at end of file