diff --git a/lispusers/NSDISPLAYSIZES b/lispusers/NSDISPLAYSIZES
index 48f7ba0c..1a3a1c4f 100644
--- a/lispusers/NSDISPLAYSIZES
+++ b/lispusers/NSDISPLAYSIZES
@@ -1,15 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
-(FILECREATED "14-Sep-96 09:32:32" {DSK}<project>medley2.0>lispusers>NSDISPLAYSIZES.;13 8499   
 
-      changes to%:  (FNS NSDISPLAYSIZE PURGENSFONTS)
-                    (VARS NSDISPLAYSIZESCOMS)
+(FILECREATED "26-Dec-2023 21:17:15" {WMEDLEY}<lispusers>NSDISPLAYSIZES.;3 8449   
 
-      previous date%: "16-Nov-95 10:10:26" {DSK}<project>medley2.0>lispusers>NSDISPLAYSIZES.;9)
+      :EDIT-BY rmk
 
+      :CHANGES-TO (FNS NSDISPLAYSIZE)
+
+      :PREVIOUS-DATE "24-Dec-2023 13:50:41" {WMEDLEY}<lispusers>NSDISPLAYSIZES.;2)
 
-(* ; "
-Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation.  All rights reserved.
-")
 
 (PRETTYCOMPRINT NSDISPLAYSIZESCOMS)
 
@@ -17,8 +15,8 @@ Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation.  Al
        [(FNS NSDISPLAYSIZE NS\FONTFILENAME NS\FONTFILENAME.OLD PURGENSFONTS)
         (ADDVARS (NSFONTFAMILIES CLASSIC MODERN TERMINAL OPTIMA TITAN))
         (INITVARS (*SMALLSCREEN* (ILESSP SCREENWIDTH 700)))
-        [COMS                                                (* ; 
-                       "VirtualKeyboard font needs adjusting so that real Classic 12 still appears")
+        [COMS                                                (* ; 
+                         "VirtualKeyboard font needs adjusting so that real Classic 12 still appears")
               (FNS VKBD.FIX.FONT)
               (DECLARE%: EVAL@COMPILE DONTCOPY (P (OR (RECLOOK 'KEYBOARDCONFIGURATION)
                                                       (LOADDEF 'KEYBOARDCONFIGURATION 'RECORDS
@@ -32,31 +30,33 @@ Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation.  Al
 (DEFINEQ
 
 (NSDISPLAYSIZE
-  [LAMBDA (FAMILY SIZE FACE EXTENSION)                   (* ; "Edited 14-Sep-96 09:32 by rmk:")
-                                                             (* ; "Edited 16-Nov-95 10:08 by ")
-                                                             (* ; 
-                                                           "Edited  5-Mar-93 18:12 by kaplan")
-                                                             (* ; "Edited 15-Jan-87 15:22 by bvm:")
+  [LAMBDA (FAMILY SIZE FACE EXTENSION)                       (* ; "Edited 26-Dec-2023 21:15 by rmk")
+                                                             (* ; "Edited 24-Dec-2023 13:49 by rmk")
+                                                             (* ; "Edited 14-Sep-96 09:32 by rmk:")
+                                                             (* ; "Edited 16-Nov-95 10:08 by ")
+                                                             (* ; "Edited  5-Mar-93 18:12 by kaplan")
+                                                             (* ; "Edited 15-Jan-87 15:22 by bvm:")
 
-    (* ;; "Returns size that we would prefer to see the font of requested family, size, face, extension.  Used to make bigger ns display fonts than you would get by default.  Don't do it for small screens, as on DOS and laptops.")
+    (* ;; "Returns size that we would prefer to see the font of requested family, size, face, extension.  Used to make bigger ns display fonts than you would get by default.  Don't do it for small screens, as on DOS and laptops.")
 
     (DECLARE (GLOBALVARS DISPLAYFONTEXTENSIONS NSFONTFAMILIES))
     (OR (AND (CL:MEMBER EXTENSION DISPLAYFONTEXTENSIONS :TEST 'STRING-EQUAL)
              (COND
                 (*SMALLSCREEN* (CL:UNLESS (CL:MEMBER FAMILY NSFONTFAMILIES :TEST 'STRING-EQUAL)
-                                                             (* ; 
-                                                           " Small screen, shrink non-NS fonts ")
+                                                             (* ; 
+                                                             " Small screen, shrink non-NS fonts ")
                                    (SELECTQ SIZE
                                        (12 10)
                                        (10 8)
                                        (8 6)
                                        NIL)))
                 ((CL:MEMBER FAMILY NSFONTFAMILIES :TEST 'STRING-EQUAL)
-                                                             (* ; "Large screen, enlarge  NS fonts")
+                                                             (* ; "Large screen, enlarge  NS fonts")
                  (AND (SELECTQ SIZE
                           (12 (COND
-                                 ((STRING-EQUAL FAMILY 'TERMINAL)
-                                                             (* ; "Until Terminal 14 exists")
+                                 ((CL:MEMBER FAMILY '(TERMINAL TITAN)
+                                         :TEST
+                                         'STRING-EQUAL)      (* ; "Until these exist in size 14")
                                   12)
                                  (T 14)))
                           (10 12)
@@ -64,8 +64,8 @@ Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation.  Al
                           (6 8)
                           NIL)))
                 ((AND NIL (CL:MEMBER EXTENSION INTERPRESSFONTEXTENSIONS :TEST 'STRING-EQUAL)
-                      (STRING-EQUAL FAMILY 'SYMBOL))         (* ; 
-                          "Fake NS size on Interpress printing, even tho display fonts don't exist")
+                      (STRING-EQUAL FAMILY 'SYMBOL))         (* ; 
+                            "Fake NS size on Interpress printing, even tho display fonts don't exist")
                  10)))
         SIZE])
 
@@ -159,9 +159,8 @@ Copyright (c) 1985, 1986, 1987, 1988, 1993, 1995, 1996 by Xerox Corporation.  Al
 
 (VKBD.FIX.FONT)
 )
-(PUTPROPS NSDISPLAYSIZES COPYRIGHT ("Xerox Corporation" 1985 1986 1987 1988 1993 1995 1996))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1696 6738 (NSDISPLAYSIZE 1706 . 4036) (NS\FONTFILENAME 4038 . 4279) (
-NS\FONTFILENAME.OLD 4281 . 4530) (PURGENSFONTS 4532 . 6736)) (6950 7988 (VKBD.FIX.FONT 6960 . 7986))))
+  (FILEMAP (NIL (1522 6781 (NSDISPLAYSIZE 1532 . 4079) (NS\FONTFILENAME 4081 . 4322) (
+NS\FONTFILENAME.OLD 4324 . 4573) (PURGENSFONTS 4575 . 6779)) (6993 8031 (VKBD.FIX.FONT 7003 . 8029))))
 )
 STOP
diff --git a/lispusers/NSDISPLAYSIZES.LCOM b/lispusers/NSDISPLAYSIZES.LCOM
index a062d636..f49b6a26 100644
Binary files a/lispusers/NSDISPLAYSIZES.LCOM and b/lispusers/NSDISPLAYSIZES.LCOM differ
