diff --git a/library/tedit/TEDIT-BUTTONS b/library/tedit/TEDIT-BUTTONS
index f015ff00..bb2ccdbe 100644
--- a/library/tedit/TEDIT-BUTTONS
+++ b/library/tedit/TEDIT-BUTTONS
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "19-Oct-2025 10:44:18" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;229 125526 
+(FILECREATED "25-Jan-2026 09:14:04" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;230 123301 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MB.ADD)
+      :CHANGES-TO (VARS TEDIT-BUTTONSCOMS)
 
-      :PREVIOUS-DATE "30-Apr-2025 14:09:18" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;228)
+      :PREVIOUS-DATE "19-Oct-2025 10:44:18" {WMEDLEY}<library>TEDIT>TEDIT-BUTTONS.;229)
 
 
 (PRETTYCOMPRINT TEDIT-BUTTONSCOMS)
@@ -36,10 +36,9 @@
               
               (* ;; "Mutually exclusive togggles with a single enclosing object")
 
-              (FNS MB.NWAY.CREATE MB.NWAY.DISPLAYFN MB.NWAY.WHENOPERATEDONFN MB.NWAY.SIZEFN 
-                   MB.NWAY.SELECT MB.NWAY.BUTTONEVENTINFN MB.NWAY.NEWMENUBUTTON MB.NWAY.COPYFN 
-                   MB.NWAY.INIT MB.NWAY.ARRANGEBUTTONS MB.NWAY.ADDITEM MB.NWAY.FINDSUBOBJ 
-                   MB.NWAY.SETSTATEFN)
+              (FNS MB.NWAY.CREATE MB.NWAY.DISPLAYFN MB.NWAY.SIZEFN MB.NWAY.SELECT 
+                   MB.NWAY.BUTTONEVENTINFN MB.NWAY.NEWMENUBUTTON MB.NWAY.COPYFN MB.NWAY.INIT 
+                   MB.NWAY.ARRANGEBUTTONS MB.NWAY.ADDITEM MB.NWAY.FINDSUBOBJ MB.NWAY.SETSTATEFN)
               (DECLARE%: DONTEVAL@LOAD DOCOPY (P (MB.NWAY.INIT]
         [COMS                                                (* ; "TOGGLE")
               (FNS MB.TOGGLE.CREATE MB.TOGGLE.DISPLAYFN MB.TOGGLE.INIT MB.SET.TOGGLE 
@@ -922,39 +921,6 @@
           (APPLY* (IMAGEOBJPROP SOBJ 'DISPLAYFN)
                  SOBJ STREAM])
 
-(MB.NWAY.WHENOPERATEDONFN
-  [LAMBDA (OBJ PANE OPERATION SEL)                           (* ; "Edited 21-Oct-2024 00:26 by rmk")
-                                                             (* ; "Edited 24-Aug-2024 23:38 by rmk")
-                                                             (* ; "Edited 13-Aug-2024 23:43 by rmk")
-                                                             (* ; "Edited  2-Aug-2024 00:36 by rmk")
-                                                             (* ; "Edited 21-Jul-2024 13:17 by rmk")
-                                                             (* ; "Edited 17-Jul-2024 21:51 by rmk")
-                                                             (* ; "Edited  9-Apr-2023 15:57 by rmk")
-                                                             (* ; "Edited 13-Sep-2022 12:09 by rmk")
-                                                             (* ; "Edited 30-May-91 22:16 by jds")
-
-    (* ;; "Perhaps the selected subobject should be stored here, as the state?")
-
-    (* ;; "Mouse tracking and highlighting happens in the BUTTONEVENTINFN (MB.NWAYBUTTON.SELFN).  The code here applies the STATECHANGEFN on the main object")
-
-    (NOTUSED)
-    (SELECTQ OPERATION
-        (SELECTED [AND NIL (\TEDIT.THELP)
-                       (LET [(SELECTED (IMAGEOBJPROP OBJ 'SELECTED]
-                            (if (IMAGEOBJPROP OBJ 'STATECHANGEFN)
-                                then (\TEDIT.THELP)
-                                     (APPLY* (IMAGEOBJPROP OBJ 'STATECHANGEFN)
-                                            OBJ SELECTED SEL PANE)
-                              elseif (AND NIL SELECTED (IMAGEOBJPROP SELECTED 'STATECHANGEFN))
-                                then 
-                                     (* ;; 
-                     "This is nuked out:  the selected object may be should have done its own thing?")
-
-                                     (APPLY* (IMAGEOBJPROP SELECTED 'STATECHANGEFN)
-                                            OBJ SELECTED SEL PANE])
-        ((HIGHLIGHTED UNHIGHLIGHTED DESELECTED))
-        NIL])
-
 (MB.NWAY.SIZEFN
   [LAMBDA (OBJ STREAM CURX RIGHTMARGIN)                      (* ; "Edited 20-Aug-2024 15:12 by rmk")
                                                              (* ; "Edited 22-Jul-2024 11:31 by rmk")
@@ -1971,25 +1937,25 @@
 (MB.FIELD.INIT)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3221 19357 (MB.ADD 3231 . 9943) (MB.DELETE 9945 . 10319) (MB.GET 10321 . 17091) (
-MB.GET.MBARG 17093 . 18762) (TEDIT.BACKTOMAIN 18764 . 19355)) (19401 39337 (MB.BUTTONEVENTINFN 19411
- . 20979) (MB.DISPLAYFN 20981 . 23040) (MB.SETIMAGE 23042 . 24210) (MB.SIZEFN 24212 . 25760) (
-MB.WHENOPERATEDONFN 25762 . 27711) (MB.COPYFN 27713 . 28171) (MB.GETFN 28173 . 29134) (MB.PUTFN 29136
- . 30236) (MB.SHOWSELFN 30238 . 31747) (MB.CREATE 31749 . 35772) (MB.CHANGENAME 35774 . 36256) (
-MB.INIT 36258 . 37719) (MB.TRACK.UNTIL 37721 . 38416) (MB.DON'T 38418 . 38714) (MB.SPEC.REMAINDER 
-38716 . 39335)) (39499 49504 (MB.3STATE.CREATE 39509 . 40373) (MB.3STATE.DISPLAYFN 40375 . 41361) (
-MB.3STATE.SHOWSELFN 41363 . 43674) (MB.3STATE.INIT 43676 . 45087) (MB.3STATE.SETSTATEFN 45089 . 45747)
- (MB.3STATE.BUTTONEVENTINFN 45749 . 49502)) (49659 80755 (MB.NWAY.CREATE 49669 . 55852) (
-MB.NWAY.DISPLAYFN 55854 . 56717) (MB.NWAY.WHENOPERATEDONFN 56719 . 58909) (MB.NWAY.SIZEFN 58911 . 
-62847) (MB.NWAY.SELECT 62849 . 66419) (MB.NWAY.BUTTONEVENTINFN 66421 . 69633) (MB.NWAY.NEWMENUBUTTON 
-69635 . 70347) (MB.NWAY.COPYFN 70349 . 71316) (MB.NWAY.INIT 71318 . 72809) (MB.NWAY.ARRANGEBUTTONS 
-72811 . 74782) (MB.NWAY.ADDITEM 74784 . 78933) (MB.NWAY.FINDSUBOBJ 78935 . 79449) (MB.NWAY.SETSTATEFN 
-79451 . 80753)) (80834 92833 (MB.TOGGLE.CREATE 80844 . 81839) (MB.TOGGLE.DISPLAYFN 81841 . 83324) (
-MB.TOGGLE.INIT 83326 . 85125) (MB.SET.TOGGLE 85127 . 86328) (MB.TOGGLE.SETSTATEFN 86330 . 87170) (
-MB.TOGGLE.BUTTONEVENTINFN 87172 . 91488) (MB.TOGGLE.WHENOPERATEDONFN 91490 . 92831)) (92914 125447 (
-MB.FIELD.CREATE 92924 . 98375) (MB.FIELD.DISPLAYFN 98377 . 99168) (MB.FIELD.IMAGEBOXFN 99170 . 100652)
- (MB.FIELD.PREFIXCREATE 100654 . 104590) (MB.FIELD.SUFFIXCREATE 104592 . 106252) (MB.FIELD.INIT 106254
- . 108021) (MB.FIELD.WHENOPERATEDONFN 108023 . 109294) (MB.FIELD.GETSTATEFN 109296 . 113230) (
-MB.FIELD.SETSTATEFN 113232 . 118036) (MB.FIELD.BUTTONEVENTINFN 118038 . 120343) (MB.FIELD.SIZEFN 
-120345 . 120585) (MB.FIELD.INSURETYPE 120587 . 125445)))))
+  (FILEMAP (NIL (3188 19324 (MB.ADD 3198 . 9910) (MB.DELETE 9912 . 10286) (MB.GET 10288 . 17058) (
+MB.GET.MBARG 17060 . 18729) (TEDIT.BACKTOMAIN 18731 . 19322)) (19368 39304 (MB.BUTTONEVENTINFN 19378
+ . 20946) (MB.DISPLAYFN 20948 . 23007) (MB.SETIMAGE 23009 . 24177) (MB.SIZEFN 24179 . 25727) (
+MB.WHENOPERATEDONFN 25729 . 27678) (MB.COPYFN 27680 . 28138) (MB.GETFN 28140 . 29101) (MB.PUTFN 29103
+ . 30203) (MB.SHOWSELFN 30205 . 31714) (MB.CREATE 31716 . 35739) (MB.CHANGENAME 35741 . 36223) (
+MB.INIT 36225 . 37686) (MB.TRACK.UNTIL 37688 . 38383) (MB.DON'T 38385 . 38681) (MB.SPEC.REMAINDER 
+38683 . 39302)) (39466 49471 (MB.3STATE.CREATE 39476 . 40340) (MB.3STATE.DISPLAYFN 40342 . 41328) (
+MB.3STATE.SHOWSELFN 41330 . 43641) (MB.3STATE.INIT 43643 . 45054) (MB.3STATE.SETSTATEFN 45056 . 45714)
+ (MB.3STATE.BUTTONEVENTINFN 45716 . 49469)) (49626 78530 (MB.NWAY.CREATE 49636 . 55819) (
+MB.NWAY.DISPLAYFN 55821 . 56684) (MB.NWAY.SIZEFN 56686 . 60622) (MB.NWAY.SELECT 60624 . 64194) (
+MB.NWAY.BUTTONEVENTINFN 64196 . 67408) (MB.NWAY.NEWMENUBUTTON 67410 . 68122) (MB.NWAY.COPYFN 68124 . 
+69091) (MB.NWAY.INIT 69093 . 70584) (MB.NWAY.ARRANGEBUTTONS 70586 . 72557) (MB.NWAY.ADDITEM 72559 . 
+76708) (MB.NWAY.FINDSUBOBJ 76710 . 77224) (MB.NWAY.SETSTATEFN 77226 . 78528)) (78609 90608 (
+MB.TOGGLE.CREATE 78619 . 79614) (MB.TOGGLE.DISPLAYFN 79616 . 81099) (MB.TOGGLE.INIT 81101 . 82900) (
+MB.SET.TOGGLE 82902 . 84103) (MB.TOGGLE.SETSTATEFN 84105 . 84945) (MB.TOGGLE.BUTTONEVENTINFN 84947 . 
+89263) (MB.TOGGLE.WHENOPERATEDONFN 89265 . 90606)) (90689 123222 (MB.FIELD.CREATE 90699 . 96150) (
+MB.FIELD.DISPLAYFN 96152 . 96943) (MB.FIELD.IMAGEBOXFN 96945 . 98427) (MB.FIELD.PREFIXCREATE 98429 . 
+102365) (MB.FIELD.SUFFIXCREATE 102367 . 104027) (MB.FIELD.INIT 104029 . 105796) (
+MB.FIELD.WHENOPERATEDONFN 105798 . 107069) (MB.FIELD.GETSTATEFN 107071 . 111005) (MB.FIELD.SETSTATEFN 
+111007 . 115811) (MB.FIELD.BUTTONEVENTINFN 115813 . 118118) (MB.FIELD.SIZEFN 118120 . 118360) (
+MB.FIELD.INSURETYPE 118362 . 123220)))))
 STOP
diff --git a/library/tedit/TEDIT-BUTTONS.LCOM b/library/tedit/TEDIT-BUTTONS.LCOM
index 5fd32581..ae82ac19 100644
Binary files a/library/tedit/TEDIT-BUTTONS.LCOM and b/library/tedit/TEDIT-BUTTONS.LCOM differ
diff --git a/library/tedit/TEDIT-MENU b/library/tedit/TEDIT-MENU
index 6794e9d7..52cf8642 100644
--- a/library/tedit/TEDIT-MENU
+++ b/library/tedit/TEDIT-MENU
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "12-Dec-2025 00:01:26" {WMEDLEY}<library>tedit>TEDIT-MENU.;501 183343 
+(FILECREATED "27-Jan-2026 10:42:09" {WMEDLEY}<library>TEDIT>TEDIT-MENU.;508 182646 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS TEDIT-MENUCOMS)
+      :CHANGES-TO (FNS \TEDIT.CHANGE.PAGELOOKS \TEDIT.PAGEMENU.CREATE)
 
-      :PREVIOUS-DATE " 7-Dec-2025 16:34:30" {WMEDLEY}<library>tedit>TEDIT-MENU.;499)
+      :PREVIOUS-DATE "25-Jan-2026 11:05:25" {WMEDLEY}<library>tedit>TEDIT-MENU.;505)
 
 
 (PRETTYCOMPRINT TEDIT-MENUCOMS)
@@ -1381,7 +1381,8 @@
 (DEFINEQ
 
 (\TEDIT.EXPANDEDMENU.CREATE
-  [LAMBDA NIL                                                (* ; "Edited 29-May-2025 09:31 by rmk")
+  [LAMBDA NIL                                                (* ; "Edited 25-Jan-2026 10:52 by rmk")
+                                                             (* ; "Edited 29-May-2025 09:31 by rmk")
                                                              (* ; "Edited  8-Mar-2025 12:27 by rmk")
                                                              (* ; "Edited  7-Jan-2025 16:05 by rmk")
                                                              (* ; "Edited  8-Nov-2024 08:35 by rmk")
@@ -1463,13 +1464,15 @@
                           TAB
                           (FIELD (IDENTIFIER SERVER)
                                  (PRELABEL "server:")
-                                 (FIELDTYPE SYMBOL))
+                                 (FIELDTYPE SYMBOL)
+                                 (EMPTYVALUE NIL))
                           (FIELD (IDENTIFIER COPIES)
                                  (PRELABEL "copies:")
+                                 (EMPTYVALUE 1)
                                  (FIELDTYPE POSITIVENUMBER))
-                          2
-                          (NWAY (IDENTIFIER SIDES)
-                                (BUTTONS (One% Side Duplex)))
+                          3
+                          (TOGGLE (IDENTIFIER DOUBLE-SIDED)
+                                 (LABEL "Double-sided"))
                           EOL TAB TAB (FIELD (IDENTIFIER MESSAGE/PHONE#)
                                              (PRELABEL "Message/Phone#:")
                                              (FIELDTYPE STRING])
@@ -1546,7 +1549,8 @@
            (RETURN 'DON'T])
 
 (\TEDIT.EXPANDEDMENU.ACTIONFN
-  [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM MAINSTREAM)     (* ; "Edited 29-May-2025 09:29 by rmk")
+  [LAMBDA (OBJ MENUSEL MENUWINDOW MENUSTREAM MAINSTREAM)     (* ; "Edited 25-Jan-2026 11:05 by rmk")
+                                                             (* ; "Edited 29-May-2025 09:29 by rmk")
                                                              (* ; "Edited 11-May-2025 15:01 by rmk")
                                                              (* ; "Edited  6-Apr-2025 14:39 by rmk")
                                                              (* ; "Edited 18-Mar-2025 23:54 by rmk")
@@ -1564,11 +1568,11 @@
                                                              (* ; 
                                                           "MBFN for TEdit default menu item buttons.")
     (ERSETQ (RESETLST
+                (RESETSAVE NIL (LIST [FUNCTION (LAMBDA (SEL)
+                                                 (FSETSEL SEL SET NIL]
+                                     MENUSEL))
                 (LET ((MENUTEXTOBJ (FTEXTOBJ MENUSTREAM))
                       STATES STATE)
-                     [RESETSAVE (PROG1 OBJ
-                                    (IMAGEOBJPROP OBJ 'MENUBUTTON.SELECTED T))
-                            '(AND (IMAGEOBJPROP OLDVALUE 'MENUBUTTON.SELECTED NIL]
                      (SELECTQ (IMAGEOBJPROP OBJ 'IDENTIFIER)
                          (QUIT                               (* ; "Is it OK to quit the main edit?")
                                (\TEDIT.FINISHEDIT? MAINSTREAM))
@@ -1636,29 +1640,21 @@
                                                                                        )
                                                      (EQ 'ON (LISTGET STATES 'CONFIRM))
                                                      (EQ 'ON (LISTGET STATES 'USENEWLOOKS])])
-                         (HARDCOPY (SETQ STATES (MB.GET '(SERVER COPIES SIDES MESSAGE/PHONE#)
+                         (HARDCOPY (SETQ STATES (MB.GET '(SERVER COPIES DOUBLE-SIDED MESSAGE/PHONE#)
                                                        MENUSTREAM
                                                        'STATE MENUSEL))
-                                   (LET ((SERVER (LISTGET STATES 'SERVER))
-                                         (COPIES (LISTGET STATES 'COPIES))
-                                         (SIDES (LISTGET STATES 'SIDES))
+                                   (LET ((COPIES (LISTGET STATES 'COPIES))
                                          (MSG (LISTGET STATES 'MESSAGE/PHONE#))
                                          PRINTOPTIONS)
-                                        (CL:UNLESS (AND SERVER (SETQ SERVER (\TEDIT.MAKEFILENAME
-                                                                             SERVER)))
-                                               (TEDIT.PROMPTPRINT MAINSTREAM 
-                                                      "Using default print server."))
                                         (CL:WHEN COPIES
                                             (SETQ PRINTOPTIONS (LIST '%#COPIES COPIES)))
-                                        (CL:WHEN SIDES
-                                            (push PRINTOPTIONS '%#SIDES (SELECTQ SIDES
-                                                                            (One% Side 1)
-                                                                            (Duplex 2)
-                                                                            NIL)))
+                                        (CL:WHEN (LISTGET STATES 'DOUBLE-SIDED)
+                                            (push PRINTOPTIONS '%#SIDES 2))
                                         (CL:WHEN MSG
                                             (push PRINTOPTIONS 'MESSAGE (\TEDIT.MAKEFILENAME MSG)))
-                                        (TEDIT.HARDCOPY MAINSTREAM NIL NIL NIL SERVER PRINTOPTIONS)))
-                         (ERROR))))])
+                                        (SEND.FILE.TO.PRINTER MAINSTREAM (LISTGET STATES 'SERVER)
+                                               PRINTOPTIONS)))
+                         (SHOULDNT))))])
 )
 
 
@@ -2371,7 +2367,8 @@
 (DEFINEQ
 
 (\TEDIT.PAGEMENU.CREATE
-  [LAMBDA (TSTREAM)                                          (* ; "Edited  5-Jun-2025 18:41 by rmk")
+  [LAMBDA (TSTREAM)                                          (* ; "Edited 26-Jan-2026 12:03 by rmk")
+                                                             (* ; "Edited  5-Jun-2025 18:41 by rmk")
                                                              (* ; "Edited 11-May-2025 14:40 by rmk")
                                                              (* ; "Edited 27-Jan-2025 08:51 by rmk")
                                                              (* ; "Edited  7-Jan-2025 15:47 by rmk")
@@ -2411,16 +2408,10 @@
                           EOL "Paper Size:  " (NWAY (IDENTIFIER PAPERSIZE)
                                                     (BUTTONS (Letter Legal A4))
                                                     (INITSTATE Letter))
-                          8
+                          16
                           (TOGGLE (LABEL "Landscape"))
-                          7
-                          (FIELD (IDENTIFIER STARTINGPAGE#)
-                                 (PRELABEL "Starting page #:")
-                                 (LABELFONT (HELVETICA 10))
-                                 (FIELDTYPE POSITIVENUMBER))
                           EOL
-                          (TEXT (STRING "For page:  ")
-                                (FONT (HELVETICA 10)))
+                          (TEXT (STRING "For page:  "))
                           (NWAY (IDENTIFIER PAGEID)
                                 (BUTTONS (|First(&Default)| Other% Left Other% Right)))
                           EOL
@@ -2430,8 +2421,7 @@
                           (* ;; "Page numbers")
 
                           5
-                          (TEXT (STRING "Page numbers:  ")
-                                (FONT (HELVETICA 10)))
+                          (TEXT (STRING "Page numbers:  "))
                           (NWAY (IDENTIFIER PAGENOS)
                                 (BUTTONS (No Yes Heading))
                                 (INITSTATE Yes))
@@ -2460,8 +2450,7 @@
 
                           (* ;; "Margins")
 
-                          EOL 5 (TEXT (STRING "Margins:   ")
-                                      (FONT (HELVETICA 10)))
+                          EOL 5 (TEXT (STRING "Margins:   "))
                           (FIELD (IDENTIFIER LEFTMARGIN)
                                  (PRELABEL "Left")
                                  (POSTLABEL "picas")
@@ -2489,7 +2478,6 @@
 
                           EOL 5 (FIELD (IDENTIFIER COLUMNS)
                                        (PRELABEL "Columns:")
-                                       (LABELFONT (HELVETICA 10))
                                        (INITSTATE 1)
                                        (FIELDTYPE POSITIVENUMBER))
                           4
@@ -2735,7 +2723,8 @@
     (TEDIT.BACKTOMAIN MENUSTREAM])
 
 (\TEDIT.CHANGE.PAGELOOKS
-  [LAMBDA (MAINTEXTSTREAM PAGELOOKS)                         (* ; "Edited 11-May-2025 15:04 by rmk")
+  [LAMBDA (MAINTEXTSTREAM PAGELOOKS)                         (* ; "Edited 27-Jan-2026 10:41 by rmk")
+                                                             (* ; "Edited 11-May-2025 15:04 by rmk")
                                                              (* ; "Edited 24-Dec-2024 21:28 by rmk")
                                                              (* ; "Edited 20-Oct-2024 17:17 by rmk")
                                                              (* ; "Edited 30-Aug-2024 23:43 by rmk")
@@ -2754,8 +2743,8 @@
                                                            ((OFF NEUTRAL) 
                                                                 (RPLACA PLTAIL NIL))
                                                            NIL))
-          (SELECTQ PAGENOS
-              (Yes                                           (* ; 
+          (SELECTQ (L-CASE PAGENOS T)
+              ((Yes T)                                       (* ; 
                                                     "Page number format specfified in pagelooks menu")
                    (CL:UNLESS (AND (LISTGET PAGELOOKS 'PAGENUMBERX)
                                    (LISTGET PAGELOOKS 'PAGENUMBERY))
@@ -2776,7 +2765,7 @@
                       (* ;; "Page numbers formatted/printed by image object in header paragraphs")
 
                       (push PAGEPROPS 'STARTINGPAGE# (LISTGET PAGELOOKS 'STARTINGPAGE#)))
-              NIL)
+              (SHOULDNT))
           (CL:UNLESS (LISTGET PAGELOOKS 'COLUMNS)
               (LISTPUT PAGELOOKS 'COLUMNS 1)
               (RETURN))
@@ -2786,9 +2775,6 @@
               (TEDIT.PROMPTPRINT MAINTEXTOBJ "Please specify the space between columns" T T)
               (RETURN))
           [push PAGEPROPS 'LANDSCAPE? (EQ 'ON (LISTGET PAGELOOKS 'LANDSCAPE]
-
-     (* ;; "**EMPTY** may come from field values in the pagelooks menue")
-
           (TEDIT.PAGEFORMAT MAINTEXTOBJ (TEDIT.SINGLE.PAGEFORMAT PAGENOS (LISTGET PAGELOOKS
                                                                                 'PAGENUMBERX)
                                                (LISTGET PAGELOOKS 'PAGENUMBERY)
@@ -2907,32 +2893,32 @@
 (ADDTOVAR LAMA )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (4929 16567 (TEDIT.ADD.MENUITEM 4939 . 7056) (TEDIT.DEFAULT.MENUFN 7058 . 13779) (
-TEDIT.REMOVE.MENUITEM 13781 . 14778) (\TEDIT.CREATEMENU 14780 . 15345) (\TEDIT.MENU.WHENHELDFN 15347
- . 16252) (\TEDIT.MENU.WHENSELECTEDFN 16254 . 16565)) (17381 65416 (DRAWMARGINSCALE 17391 . 20850) (
-MARGINBAR 20852 . 27977) (MARGINBAR.CREATE 27979 . 32177) (MB.MARGINBAR.BUTTONEVENTINFN 32179 . 39981)
- (MB.MARGINBAR.SELFN.TABS 39983 . 45223) (MB.MARGINBAR.SELFN.TABS.KIND 45225 . 46160) (
-MARGINBAR.GETSTATEFN 46162 . 50149) (MARGINBAR.SETSTATEFN 50151 . 50361) (MARGINBAR.NEUTRALIZE 50363
- . 51038) (MARGINBAR.LOOKS 51040 . 54146) (MB.MARGINBAR.SIZEFN 54148 . 54934) (MB.MARGINBAR.DISPLAYFN 
-54936 . 57997) (MDESCALE 57999 . 58539) (MSCALE 58541 . 58871) (MB.MARGINBAR.SHOWTAB 58873 . 61196) (
-MB.MARGINBAR.TABTRACK 61198 . 62583) (MARGINBAR.INIT 62585 . 63978) (\TEDIT.PARALOOKS.TO.MARBAR 63980
- . 65414)) (66241 73523 (TEDIT.MENUSTREAM 66251 . 67251) (TEDITMENUP 67253 . 68222) (\TEDIT.MENU.START
- 68224 . 72571) (\TEDIT.MENU.OPEN? 72573 . 72947) (\TEDIT.MENU.BUTTONEVENTFN 72949 . 73521)) (73842 
-81893 (\TEDIT.MENU.CREATE 73852 . 75792) (\TEDIT.MENU.PARSE 75794 . 79483) (\TEDIT.MENU.NEUTRALIZE 
-79485 . 81556) (\TEDITMENU.RECORD.UNFORMATTED 81558 . 81891)) (81959 101740 (
-\TEDIT.EXPANDEDMENU.CREATE 81969 . 87436) (\TEDIT.EXPANDEDMENU.START 87438 . 89062) (
-\TEDIT.EXPANDEDMENU.FN 89064 . 92319) (\TEDIT.EXPANDEDMENU.ACTIONFN 92321 . 101738)) (101802 121227 (
-\TEDIT.PARAMENU.CREATE 101812 . 110543) (\TEDIT.PARAMENU.START 110545 . 111799) (
-\TEDIT.APPLY.PARALOOKS 111801 . 112853) (\TEDIT.SHOW.PARALOOKS 112855 . 115572) (
-\TEDIT.PARAMENU.FILLIN 115574 . 120323) (\TEDIT.PARAMENU.RESHAPEFN 120325 . 121225)) (121421 148263 (
-\TEDIT.CHARMENU.CREATE 121431 . 124035) (\TEDIT.CHARMENU.START 124037 . 125327) (\TEDIT.CHARMENU.SPEC 
-125329 . 130012) (\TEDIT.CHARMENU.PARSE 130014 . 133182) (\TEDIT.CHARMENU.FILLIN 133184 . 137814) (
-\TEDIT.SHOW.CHARLOOKS 137816 . 141361) (\TEDIT.APPLY.CHARLOOKS 141363 . 142524) (
-\TEDIT.OFFSETTYPE.STATEFN 142526 . 144489) (\TEDIT.OTHER.STATECHANGEFN 144491 . 146136) (
-\TEDIT.OTHER.SELECTFN 146138 . 148261)) (148325 177383 (\TEDIT.PAGEMENU.CREATE 148335 . 156847) (
-\TEDIT.PAGEMENU.START 156849 . 157200) (\TEDIT.SHOW.PAGELOOKS 157202 . 159088) (\TEDIT.PAGEMENU.FILLIN
- 159090 . 160640) (\TEDIT.PAGEREGION.UNPARSE 160642 . 170041) (\TEDIT.APPLY.PAGELOOKS 170043 . 171970)
- (\TEDIT.CHANGE.PAGELOOKS 171972 . 176539) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 176541 . 177381)) (
-177384 183187 (\TEDIT.PAGEMENU.CREATE.HEADINGS 177394 . 180206) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 
-180208 . 181633) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 181635 . 183185)))))
+  (FILEMAP (NIL (4960 16598 (TEDIT.ADD.MENUITEM 4970 . 7087) (TEDIT.DEFAULT.MENUFN 7089 . 13810) (
+TEDIT.REMOVE.MENUITEM 13812 . 14809) (\TEDIT.CREATEMENU 14811 . 15376) (\TEDIT.MENU.WHENHELDFN 15378
+ . 16283) (\TEDIT.MENU.WHENSELECTEDFN 16285 . 16596)) (17412 65447 (DRAWMARGINSCALE 17422 . 20881) (
+MARGINBAR 20883 . 28008) (MARGINBAR.CREATE 28010 . 32208) (MB.MARGINBAR.BUTTONEVENTINFN 32210 . 40012)
+ (MB.MARGINBAR.SELFN.TABS 40014 . 45254) (MB.MARGINBAR.SELFN.TABS.KIND 45256 . 46191) (
+MARGINBAR.GETSTATEFN 46193 . 50180) (MARGINBAR.SETSTATEFN 50182 . 50392) (MARGINBAR.NEUTRALIZE 50394
+ . 51069) (MARGINBAR.LOOKS 51071 . 54177) (MB.MARGINBAR.SIZEFN 54179 . 54965) (MB.MARGINBAR.DISPLAYFN 
+54967 . 58028) (MDESCALE 58030 . 58570) (MSCALE 58572 . 58902) (MB.MARGINBAR.SHOWTAB 58904 . 61227) (
+MB.MARGINBAR.TABTRACK 61229 . 62614) (MARGINBAR.INIT 62616 . 64009) (\TEDIT.PARALOOKS.TO.MARBAR 64011
+ . 65445)) (66272 73554 (TEDIT.MENUSTREAM 66282 . 67282) (TEDITMENUP 67284 . 68253) (\TEDIT.MENU.START
+ 68255 . 72602) (\TEDIT.MENU.OPEN? 72604 . 72978) (\TEDIT.MENU.BUTTONEVENTFN 72980 . 73552)) (73873 
+81924 (\TEDIT.MENU.CREATE 73883 . 75823) (\TEDIT.MENU.PARSE 75825 . 79514) (\TEDIT.MENU.NEUTRALIZE 
+79516 . 81587) (\TEDITMENU.RECORD.UNFORMATTED 81589 . 81922)) (81990 101392 (
+\TEDIT.EXPANDEDMENU.CREATE 82000 . 87678) (\TEDIT.EXPANDEDMENU.START 87680 . 89304) (
+\TEDIT.EXPANDEDMENU.FN 89306 . 92561) (\TEDIT.EXPANDEDMENU.ACTIONFN 92563 . 101390)) (101454 120879 (
+\TEDIT.PARAMENU.CREATE 101464 . 110195) (\TEDIT.PARAMENU.START 110197 . 111451) (
+\TEDIT.APPLY.PARALOOKS 111453 . 112505) (\TEDIT.SHOW.PARALOOKS 112507 . 115224) (
+\TEDIT.PARAMENU.FILLIN 115226 . 119975) (\TEDIT.PARAMENU.RESHAPEFN 119977 . 120877)) (121073 147915 (
+\TEDIT.CHARMENU.CREATE 121083 . 123687) (\TEDIT.CHARMENU.START 123689 . 124979) (\TEDIT.CHARMENU.SPEC 
+124981 . 129664) (\TEDIT.CHARMENU.PARSE 129666 . 132834) (\TEDIT.CHARMENU.FILLIN 132836 . 137466) (
+\TEDIT.SHOW.CHARLOOKS 137468 . 141013) (\TEDIT.APPLY.CHARLOOKS 141015 . 142176) (
+\TEDIT.OFFSETTYPE.STATEFN 142178 . 144141) (\TEDIT.OTHER.STATECHANGEFN 144143 . 145788) (
+\TEDIT.OTHER.SELECTFN 145790 . 147913)) (147977 176686 (\TEDIT.PAGEMENU.CREATE 147987 . 156103) (
+\TEDIT.PAGEMENU.START 156105 . 156456) (\TEDIT.SHOW.PAGELOOKS 156458 . 158344) (\TEDIT.PAGEMENU.FILLIN
+ 158346 . 159896) (\TEDIT.PAGEREGION.UNPARSE 159898 . 169297) (\TEDIT.APPLY.PAGELOOKS 169299 . 171226)
+ (\TEDIT.CHANGE.PAGELOOKS 171228 . 175842) (\TEDIT.PAGEMENU.CHARLOOKS.STATEFN 175844 . 176684)) (
+176687 182490 (\TEDIT.PAGEMENU.CREATE.HEADINGS 176697 . 179509) (\TEDIT.PAGEMENU.HEADINGS.SETSTATEFN 
+179511 . 180936) (\TEDIT.PAGEMENU.HEADINGS.STATEFN 180938 . 182488)))))
 STOP
diff --git a/library/tedit/TEDIT-MENU.LCOM b/library/tedit/TEDIT-MENU.LCOM
index 8c35a52d..00ef77c6 100644
Binary files a/library/tedit/TEDIT-MENU.LCOM and b/library/tedit/TEDIT-MENU.LCOM differ
diff --git a/library/tedit/TEDIT-PAGE b/library/tedit/TEDIT-PAGE
index 557b9cbe..3ed7ebe6 100644
--- a/library/tedit/TEDIT-PAGE
+++ b/library/tedit/TEDIT-PAGE
@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "17-Jan-2026 12:00:08" {WMEDLEY}<library>tedit>TEDIT-PAGE.;241 130528 
+(FILECREATED "27-Jan-2026 10:30:27" {WMEDLEY}<library>TEDIT>TEDIT-PAGE.;243 130855 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS TEDIT.TO.IMAGEFILE)
+      :CHANGES-TO (FNS TEDIT.SINGLE.PAGEFORMAT)
+                  (VARS TEDIT-PAGECOMS)
 
-      :PREVIOUS-DATE "15-Jan-2026 10:48:30" {WMEDLEY}<library>tedit>TEDIT-PAGE.;240)
+      :PREVIOUS-DATE "17-Jan-2026 12:00:08" {WMEDLEY}<library>TEDIT>TEDIT-PAGE.;241)
 
 
 (PRETTYCOMPRINT TEDIT-PAGECOMS)
@@ -51,6 +52,7 @@
                                                   (TEDIT.SINGLE.PAGEFORMAT T 540 756 NIL 'RIGHT 72 72
                                                          72 72 NIL 1]
         (FNS TEDIT.TO.IMAGEFILE)
+        [P (DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE]
         (COMS 
               (* ;; "Perform page layout, based on a regular expression of typed regions.")
 
@@ -313,7 +315,8 @@
 
 (TEDIT.SINGLE.PAGEFORMAT
   [LAMBDA (PAGE#S? PX PY PFONT PQUAD LEFT RIGHT TOP BOTTOM COLS COLWIDTH INTERCOL HEADINGS UNITS 
-                 PAGEPROPS PAPERSIZE)                        (* ; "Edited 11-May-2025 14:59 by rmk")
+                 PAGEPROPS PAPERSIZE)                        (* ; "Edited 27-Jan-2026 10:30 by rmk")
+                                                             (* ; "Edited 11-May-2025 14:59 by rmk")
                                                              (* ; "Edited 10-Jan-2025 11:41 by rmk")
                                                              (* ; "Edited 24-Dec-2024 21:20 by rmk")
                                                              (* ; "Edited 15-Aug-2024 23:01 by rmk")
@@ -356,7 +359,8 @@
           (AND INTERCOL (SETQ INTERCOL (HCSCALE SCALEFACTOR INTERCOL)))
           (SETQ PAGEWIDTH (IDIFFERENCE (IDIFFERENCE PAPERWIDTH RIGHT)
                                  LEFT))
-          (CL:WHEN (EQ PAGE#S? 'Yes)
+          (CL:WHEN (MEMB (L-CASE PAGE#S? T)
+                         '(T Yes))
 
               (* ;; "This asserts that the page number's region is 4 inches wide.  Why?  What if the pretext/posttext is longer?")
 
@@ -730,6 +734,8 @@
                (RETURN (CLOSEF IMAGESTREAM))))])
 )
 
+(DEFAULT.IMAGETYPE.CONVERSIONS '(TEDIT TEDIT.TO.IMAGEFILE))
+
 
 
 (* ;; "Perform page layout, based on a regular expression of typed regions.")
@@ -2056,18 +2062,18 @@
                         (RETURN (DREMOVE NIL $$VAL])
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (12133 15745 (\TEDIT.PARSE.PAGEFRAMES 12143 . 13922) (\TEDIT.PUT.PAGEFRAMES 13924 . 
-14748) (\TEDIT.UNPARSE.PAGEFRAMES 14750 . 15743)) (15808 37825 (TEDIT.SINGLE.PAGEFORMAT 15818 . 26811)
- (TEDIT.COMPOUND.PAGEFORMAT 26813 . 27792) (TEDIT.PAGEFORMAT 27794 . 35083) (TEDIT.GET.PAGEFORMAT 
-35085 . 37823)) (38112 44592 (TEDIT.TO.IMAGEFILE 38122 . 44590)) (44679 97931 (\TEDIT.FORMATBOX 44689
- . 58113) (\TEDIT.FORMATHEADING 58115 . 62761) (\TEDIT.FORMATPAGE 62763 . 71952) (\TEDIT.FORMATTEXTBOX
- 71954 . 88467) (\TEDIT.FORMATFOLIO 88469 . 93786) (\TEDIT.FORMAT.FOUNDBOX? 93788 . 95827) (
-\TEDIT.SKIP.SPECIALCOND 95829 . 97929)) (98011 103066 (\TEDIT.HARDCOPY.PAGEHEADINGS 98021 . 103064)) (
-103175 111226 (\TEDIT.HARDCOPY-COLUMN-END 103185 . 111224)) (111271 116212 (SCALEPAGEUNITS 111281 . 
-112422) (SCALEPAGEXUNITS 112424 . 113194) (SCALEPAGEYUNITS 113196 . 113967) (\TEDIT.PAPERHEIGHT 113969
- . 114904) (\TEDIT.PAPERWIDTH 114906 . 116210)) (116628 120196 (ROMANNUMERALS 116638 . 120194)) (
-120235 127501 (TEDIT.PAGENO.CREATE 120245 . 120621) (\TEDIT.PAGENO.OBJINIT 120623 . 121906) (
-\TEDIT.PAGENO.BUTTONEVENTINFN 121908 . 122974) (\TEDIT.PAGENO.IMAGEBOXFN 122976 . 125126) (
-\TEDIT.PAGENO.DISPLAYFN 125128 . 126778) (\TEDIT.PAGENO.GETFN 126780 . 127172) (\TEDIT.PAGENO.PUTFN 
-127174 . 127499)) (127566 130505 (\TEDIT.FORMAT.FOOTNOTE 127576 . 130503)))))
+  (FILEMAP (NIL (12248 15860 (\TEDIT.PARSE.PAGEFRAMES 12258 . 14037) (\TEDIT.PUT.PAGEFRAMES 14039 . 
+14863) (\TEDIT.UNPARSE.PAGEFRAMES 14865 . 15858)) (15923 38091 (TEDIT.SINGLE.PAGEFORMAT 15933 . 27077)
+ (TEDIT.COMPOUND.PAGEFORMAT 27079 . 28058) (TEDIT.PAGEFORMAT 28060 . 35349) (TEDIT.GET.PAGEFORMAT 
+35351 . 38089)) (38378 44858 (TEDIT.TO.IMAGEFILE 38388 . 44856)) (45006 98258 (\TEDIT.FORMATBOX 45016
+ . 58440) (\TEDIT.FORMATHEADING 58442 . 63088) (\TEDIT.FORMATPAGE 63090 . 72279) (\TEDIT.FORMATTEXTBOX
+ 72281 . 88794) (\TEDIT.FORMATFOLIO 88796 . 94113) (\TEDIT.FORMAT.FOUNDBOX? 94115 . 96154) (
+\TEDIT.SKIP.SPECIALCOND 96156 . 98256)) (98338 103393 (\TEDIT.HARDCOPY.PAGEHEADINGS 98348 . 103391)) (
+103502 111553 (\TEDIT.HARDCOPY-COLUMN-END 103512 . 111551)) (111598 116539 (SCALEPAGEUNITS 111608 . 
+112749) (SCALEPAGEXUNITS 112751 . 113521) (SCALEPAGEYUNITS 113523 . 114294) (\TEDIT.PAPERHEIGHT 114296
+ . 115231) (\TEDIT.PAPERWIDTH 115233 . 116537)) (116955 120523 (ROMANNUMERALS 116965 . 120521)) (
+120562 127828 (TEDIT.PAGENO.CREATE 120572 . 120948) (\TEDIT.PAGENO.OBJINIT 120950 . 122233) (
+\TEDIT.PAGENO.BUTTONEVENTINFN 122235 . 123301) (\TEDIT.PAGENO.IMAGEBOXFN 123303 . 125453) (
+\TEDIT.PAGENO.DISPLAYFN 125455 . 127105) (\TEDIT.PAGENO.GETFN 127107 . 127499) (\TEDIT.PAGENO.PUTFN 
+127501 . 127826)) (127893 130832 (\TEDIT.FORMAT.FOOTNOTE 127903 . 130830)))))
 STOP
diff --git a/library/tedit/TEDIT-PAGE.LCOM b/library/tedit/TEDIT-PAGE.LCOM
index 79d8c691..e0e57bf5 100644
Binary files a/library/tedit/TEDIT-PAGE.LCOM and b/library/tedit/TEDIT-PAGE.LCOM differ
