--- a/lisp/x-font-menu.el	Mon Aug 13 10:44:26 2007 +0200
+++ b/lisp/x-font-menu.el	Mon Aug 13 10:44:46 2007 +0200
@@ -494,8 +494,8 @@
     (when (and family (not (equal family from-family)))
       (setq new-props (append (list :family family) new-props)))
     (when (and size (not (equal size from-size)))
-      (setq new-props (append (list :size (int-to-string
-					  (/ size 10))) new-props)))
+      (setq new-props (append (list :size (concat (int-to-string
+					  (/ size 10)) "pt")) new-props)))
     (custom-set-face-update-spec 'default '((type x)) new-props)
     ;;; WMP - we need to honor font-menu-this-frame-only-p here!      
 ;    (set-face-font 'default new-default-face-font