diff --git a/ChangeLog b/ChangeLog
index e6e574550..87975fdc5 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2011-12-19 Riccardo Mottola <rm@gnu.org>
+
+	* Source/GSString.m:
+	Fix blocking compiler warning (ggc 4.5.3)
+
 2011-12-17  Richard Frith-Macdonald <rfm@gnu.org>
 
 	* configure.ac: Try to make detection of compilers which don't support
diff --git a/Source/GSString.m b/Source/GSString.m
index eb11c99fe..c5329b602 100644
--- a/Source/GSString.m
+++ b/Source/GSString.m
@@ -793,6 +793,9 @@ static BOOL useTinyStrings;
 static id
 createTinyString(const char *str, int length)
 {
+  unsigned int i;
+  uintptr_t s = TINY_STRING_MASK;
+
   /* No tiny string support detected at run time, give up
    */
   if (!useTinyStrings)
@@ -813,9 +816,9 @@ createTinyString(const char *str, int length)
     {
       return nil;
     }
-  uintptr_t s = TINY_STRING_MASK;
+  
   s |= length << TINY_STRING_LENGTH_SHIFT;
-  for (unsigned int i = 0 ; i<length ; i++)
+  for (i = 0 ; i<length ; i++)
     {
       s |= ((uintptr_t)str[i]) << (57 - (i*7));
     }