diff --git a/ChangeLog b/ChangeLog
index 6a0aa5b60..ac61afde3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2000-10-10  Richard Frith-Macdonald <rfm@gnu.org>
+
+	* Source/GSString.m: fillHole() fixed error in copying bytes.
+
 2000-10-09  Richard Frith-Macdonald <rfm@gnu.org>
 
 	* Source/NSGAttributedString.m: ([-setAttributes:range:])
diff --git a/Source/GSString.m b/Source/GSString.m
index 48af0aec1..4ae60f2c0 100644
--- a/Source/GSString.m
+++ b/Source/GSString.m
@@ -504,6 +504,7 @@ fillHole(ivars self, unsigned index, unsigned size)
   NSCAssert(size > 0, @"size <= zero");
   NSCAssert(index + size <= self->_count, @"index + size > length");
 
+  self->_count -= size;
 #ifndef STABLE_MEMCPY
   {
     int i;
@@ -536,8 +537,6 @@ fillHole(ivars self, unsigned index, unsigned size)
 	self->_contents.c + index, (self->_count - index));
     }
 #endif // STABLE_MEMCPY
-
-  self->_count -= size;
   self->_flags.hash = 0;
 }