diff --git a/ChangeLog b/ChangeLog
index 954867039..fd7d947b5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-10 Nicola Pero  <n.pero@mi.flashnet.it>
+
+	* Source/GSAttributedString.m ([GSAttributedString -length]),
+	([GSMutableAttributedString -length]): Added for speed.
+
 2001-01-10  Richard Frith-Macdonald <rfm@gnu.org>
 
 	* Source/Unicode.m: Fix bug in checking possible default string
diff --git a/Source/GSAttributedString.m b/Source/GSAttributedString.m
index d20b81e30..514831525 100644
--- a/Source/GSAttributedString.m
+++ b/Source/GSAttributedString.m
@@ -490,6 +490,13 @@ _attributesAtIndexEffectiveRange(
   [super dealloc];
 }
 
+
+// The superclass implementation is correct but too slow
+- (unsigned int) length
+{
+  return [_textChars length];
+}
+
 @end
 
 
@@ -828,6 +835,12 @@ SANITY();
   [super dealloc];
 }
 
+// The superclass implementation is correct but too slow
+- (unsigned int) length
+{
+  return [_textChars length];
+}
+
 @end