1 files changed, 5 insertions, 0 deletions

diff --git a/perl-install/lang.pm b/perl-install/lang.pm
index 499c15bac..81e407d79 100644
--- a/perl-install/lang.pm
+++ b/perl-install/lang.pm
@@ -526,6 +526,10 @@ my %gtkqt_im =
            },
 
 );
+
+sub get_ims() {
+    %gtkqt_im;
+}
            
 
 my %xim = (
@@ -1002,6 +1006,7 @@ sub write {
 	}
 	
     }
+    add2hash $h, $gtkqt_im{$locale->{IM}};
     add2hash $h, $xim{$h->{LANG}};
 
     #- deactivate translations on console for RTL languages