--- xemacs-21.4.6.orig/src/event-Xt.c	Thu Apr 12 21:23:40 2001
+++ xemacs-21.4.6/src/event-Xt.c	Mon Feb 18 13:34:09 2002
@@ -310,9 +310,12 @@
     {
       extern Lisp_Object Vcurrent_global_map;
       extern Lisp_Object Qascii_character;
-      Fput (symbol, Qascii_character, character);
+      
       if (NILP (Flookup_key (Vcurrent_global_map, symbol, Qnil)))
-	Fdefine_key (Vcurrent_global_map, symbol, Qself_insert_command);
+        {
+           Fput (symbol, Qascii_character, character);
+       	   Fdefine_key (Vcurrent_global_map, symbol, Qself_insert_command);
+        }
     }
 }