diff --git a/ChangeLog b/ChangeLog
index 267f03d0e..5296a8154 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Mon Jan 11 17:00:00 1999  Richard Frith-Macdonald <richard@brainstorm.co.uk>
+
+        * Source/NSColor.m: ([-colorWithAlphaComponent:]) bugfix from
+        Benhur-de-Oliveira.Stein@imag.fr
+
 Sat Jan  9 21:10:00 1999  Richard Frith-Macdonald <richard@brainstorm.co.uk>
 
         * Source/NSWindow.m: ([-setcontentView:]) Corrected to resize the
diff --git a/Source/NSColor.m b/Source/NSColor.m
index 546b93293..582c5dcff 100644
--- a/Source/NSColor.m
+++ b/Source/NSColor.m
@@ -1009,8 +1009,10 @@ static NSMutableDictionary	*colorStrings = nil;
 
 - (NSColor *)colorWithAlphaComponent:(float)alpha
 {
-  [self setAlpha: alpha];
-  return self;
+  NSColor       *aCopy = [self copy];
+  if (aCopy)
+    [aCopy setAlpha: alpha];
+  return aCopy;
 }
 
 - (NSColor*) highlightWithLevel: (float)level