--- ./z37.c	Wed May 10 03:04:39 2000
+++ ../lout-3.21/./z37.c	Fri Jun  9 07:22:30 2000
@@ -689,6 +689,9 @@
   font_mapping(first_size) = font_mapping(face);
   /* leaves font_xheight2 and font_spacewidth still to do */
 
+  /* uwe: record font num of unscaled font as font_num for the face */
+  font_num(face) = font_num(first_size);
+
 
   /***************************************************************************/
   /*                                                                         */