--- a/CharacterWriteStream.st	Fri Jan 12 14:12:56 2018 +0100
+++ b/CharacterWriteStream.st	Mon Jan 15 08:30:57 2018 +0100
@@ -262,7 +262,7 @@
 
 nextPutAll:aCollection
     "append aCollection to the receiver.
-     Redefined to convert to a string of the needed charcter size."
+     Redefined to convert to a string of the needed character size."
 
     |needCharacterSize|
 
@@ -271,6 +271,8 @@
         self characterSizeChangedTo:needCharacterSize size:aCollection size.
     ].
     super nextPutAll:aCollection
+
+    "Modified (comment): / 15-01-2018 / 08:29:39 / mawalch"
 !
 
 nextPutAll:aCollection startingAt:start to:stop