diff --git a/gtk/gtkentry.c b/gtk/gtkentry.c
index 8c77386d1f..e825afa818 100644
--- a/gtk/gtkentry.c
+++ b/gtk/gtkentry.c
@@ -1833,3 +1833,9 @@ gtk_entry_select_region  (GtkEntry       *entry,
   gtk_editable_select_region (GTK_EDITABLE(entry), start, end);
 }
 
+void
+gtk_entry_set_max_length (GtkEntry *entry,
+			  guint16 max)
+{
+  entry->text_max_length = max;
+}