--- xemacs-21.4.4.orig/lisp/font-menu.el	Wed Jul 25 09:44:26 2001
+++ xemacs-21.4.4/lisp/font-menu.el	Fri Sep 21 12:20:23 2001
@@ -396,8 +396,7 @@
 					 :size (concat
 						(int-to-string
 						 (/ (or size from-size)
-						    (specifier-instance font-menu-size-scaling
-									(selected-device))))
+						    10))
 						"pt")))
       (message "Font %s" (face-font-name 'default)))))