diff --git a/ChangeLog b/ChangeLog
index 748a57806..2ffe2c91e 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,9 @@
 	* Source/cifframe.m
 	Minor include fixes to avoid malloc.h warnings on OpenBSD.
 
+	* Source/NSScanner.m
+	Remove set but unused variable.
+
 2015-06-22  Richard Frith-Macdonald <rfm@gnu.org>
 
         * Headers/GNUstepBase/Additions.h:
diff --git a/Source/NSScanner.m b/Source/NSScanner.m
index 4ee8f31e7..26c307773 100644
--- a/Source/NSScanner.m
+++ b/Source/NSScanner.m
@@ -1243,7 +1243,6 @@ GSScanDouble(unichar *buf, unsigned length, double *result)
   int	        exponent = 0;
   BOOL	        negativeMantissa = NO;
   BOOL		negativeExponent = NO;
-  BOOL          extra = NO;
   unsigned	pos = 0;
   int           mantissaLength;
   int           dotPos = -1;
@@ -1303,7 +1302,6 @@ GSScanDouble(unichar *buf, unsigned length, double *result)
       /* Mantissa too long ... ignore excess.
        */
       mantissaLength = 18;
-      extra = YES;
     }
   if (dotPos < 0)
     {