diff --git a/docs/changes.txt b/docs/changes.txt
index 4545359ed0..6d6f5ee13f 100644
--- a/docs/changes.txt
+++ b/docs/changes.txt
@@ -187,6 +187,7 @@ All:
 - wxRegEx::Compile() now calculates the number of groups correctly
 - wxHTTP::GetHeader() didn't find headers which not all in upper case
 - wxString::find_last_of() ignored "start" parameter (Robert Vazan)
+- a bug in wxArrayString::Shrink() fixed (Gunnar Roth)
 
 All (GUI):
 
diff --git a/src/common/string.cpp b/src/common/string.cpp
index 38e26e586e..136f46f224 100644
--- a/src/common/string.cpp
+++ b/src/common/string.cpp
@@ -1902,6 +1902,7 @@ void wxArrayString::Shrink()
     memcpy(pNew, m_pItems, m_nCount*sizeof(wxChar *));
     delete [] m_pItems;
     m_pItems = pNew;
+    m_nSize = m_nCount;
   }
 }