--- lisp/x11/x-win-xfree86.el.orig	Sun Aug 24 10:08:04 1997
+++ lisp/x11/x-win-xfree86.el	Sun Aug 24 10:09:08 1997
@@ -55,6 +55,6 @@
 	(while mods
 	  (let ((k1 (vector (append (car mods) foo)))
 		(k2 (vector (append (car mods) bar))))
-	    (define-key key-translation-map k1 k2))
+	    (define-key global-map k1 k2))
 	  (setq mods (cdr mods))))
       (setq mapping (cdr mapping)))))
