diff --git a/library/sketch/SKETCH-ELEMENTS b/library/sketch/SKETCH-ELEMENTS
index d9905630..77154fcf 100644
--- a/library/sketch/SKETCH-ELEMENTS
+++ b/library/sketch/SKETCH-ELEMENTS
@@ -1,6 +1,6 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 7-Nov-2025 11:54:25" {WMEDLEY}<library>SKETCH>SKETCH-ELEMENTS.;22 545478 
+(FILECREATED " 8-Nov-2025 14:02:38" {WMEDLEY}<library>SKETCH>SKETCH-ELEMENTS.;24 545649 
 
       :EDIT-BY rmk
 
@@ -5198,7 +5198,8 @@ Click outside the window to stop.")
               (RETURN NEWSCREENELT])
 
 (SK.CHANGE.TEXT
-  [LAMBDA (ELTWITHTEXT HOW SKW)                              (* ; "Edited  7-Nov-2025 09:05 by rmk")
+  [LAMBDA (ELTWITHTEXT HOW SKW)                              (* ; "Edited  8-Nov-2025 14:02 by rmk")
+                                                             (* ; "Edited  7-Nov-2025 09:05 by rmk")
                                                              (* ; "Edited  7-Apr-87 13:41 by rrb")
     (PROG ((COMMAND (CADR HOW))
            (PROPERTY 'FONT)
@@ -5256,7 +5257,7 @@ Click outside the window to stop.")
                                       (create TEXT using GINDTEXTELT TEXTSTYLE _ NEWVALUE))
                                      (T (create TEXTBOX using GINDTEXTELT TEXTSTYLE _ NEWVALUE))))
                              ((BOLD UNBOLD ITALIC UNITALIC)  (* ; "change the face")
-                                  (OR (SK.CHANGE.FONT SKW ELTWITHTEXT GINDTEXTELT NIL NIL
+                                  (OR [SK.CHANGE.FONT SKW ELTWITHTEXT NIL NIL
                                              (MAKEFONTFACE (SELECTQ COMMAND
                                                                (BOLD 'BOLD)
                                                                (UNBOLD 'MEDIUM)
@@ -5266,7 +5267,8 @@ Click outside the window to stop.")
                                                         (UNITALIC 'REGULAR)
                                                         NIL)
                                                     NIL
-                                                    (fetch (TEXT FONT) of GINDTEXTELT)))
+                                                    (FONTPROP (fetch (TEXT FONT) of GINDTEXTELT)
+                                                           'FACE]
                                       (RETURN)))
                              (BOX                            (* ; 
                                                              "RMK 2025:  RETURN MEANS NO HISTORY?")
@@ -9138,7 +9140,7 @@ ARROWHEAD.POINTS.LIST 233152 . 237124) (CURVE.ARROWHEAD.POINTS 237126 . 237989)
 SK.SET.ARROWHEAD.ANGLE 250348 . 251444) (SK.SET.ARROWHEAD.TYPE 251446 . 254735) (SK.SET.LINE.ARROWHEAD
  254737 . 257150) (SK.UPDATE.ARROWHEAD.FORMAT 257152 . 259262) (SK.SET.LINE.LENGTH.MODE 259264 . 
 260742)) (260745 262546 (SK.INSURE.ARROWHEADS 260755 . 261937) (SK.ARROWHEADP 261939 . 262544)) (
-265343 327072 (SKETCH.CREATE.TEXT 265353 . 265867) (TEXT.CHANGEFN 265869 . 266261) (TEXT.READCHANGEFN 
+265343 327243 (SKETCH.CREATE.TEXT 265353 . 265867) (TEXT.CHANGEFN 265869 . 266261) (TEXT.READCHANGEFN 
 266263 . 274334) (\SK.READ.FONT.SIZE1 274336 . 276502) (SK.TEXT.ELT.WITH.SAME.FIELDS 276504 . 278144) 
 (SK.READFONTFAMILY 278146 . 280616) (CLOSE.PROMPT.WINDOW 280618 . 281042) (TEXT.DRAWFN 281044 . 281765
 ) (TEXT.DRAWFN1 281767 . 285269) (TEXT.INSIDEFN 285271 . 285660) (TEXT.EXPANDFN 285662 . 287787) (
@@ -9148,60 +9150,60 @@ SK.TEXT.LINE.REGIONS 287789 . 289663) (TEXT.UPDATE.GLOBAL.REGIONS 289665 . 29089
 SK.UPDATE.TEXT.AFTER.CHANGE 299253 . 299655) (SK.TEXT.FROM.TEXTBOX 299657 . 303463) (
 TEXT.SET.GLOBAL.REGIONS 303465 . 304758) (TEXT.REGIONFN 304760 . 305530) (TEXT.GLOBALREGIONFN 305532
  . 306220) (TEXT.TRANSLATEFN 306222 . 307537) (TEXT.TRANSFORMFN 307539 . 308662) (TEXT.TRANSLATEPTSFN 
-308664 . 309181) (TEXT.UPDATEFN 309183 . 313839) (SK.CHANGE.TEXT 313841 . 323992) (SK.CHANGE.FONT 
-323994 . 325138) (TEXT.SET.SCALES 325140 . 326108) (BREAK.AT.CARRIAGE.RETURNS 326110 . 327070)) (
-327073 340058 (SK.PICK.FONT 327083 . 331355) (SK.CHOOSE.TEXT.FONT 331357 . 335628) (SK.NEXTSIZEFONT 
-335630 . 337262) (SK.DECREASING.FONT.LIST 337264 . 340056)) (340477 352151 (SK.SET.FONT 340487 . 
-341754) (SK.SET.TEXT.FONT 341756 . 342758) (SK.SET.TEXT.SIZE 342760 . 343447) (SK.SET.TEXT.HORIZ.ALIGN
- 343449 . 345023) (SK.READFONTSIZE 345025 . 346923) (SK.COLLECT.FONT.SIZES 346925 . 348006) (
-SK.SET.TEXT.VERT.ALIGN 348008 . 350050) (SK.SET.TEXT.LOOKS 350052 . 351509) (SK.SET.DEFAULT.TEXT.FACE 
-351511 . 352149)) (352152 352738 (CREATE.SKETCH.TERMTABLE 352162 . 352736)) (352739 354505 (
-SK.FONT.LIST 352749 . 353075) (SK.INSURE.FONT 353077 . 353599) (SK.INSURE.STYLE 353601 . 354119) (
-SK.INSURE.TEXT 354121 . 354503)) (355045 412338 (SKETCH.CREATE.TEXTBOX 355055 . 356697) (
-SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 356699 . 358776) (SK.BREAK.INTO.LINES 358778 . 369964) (
-SK.BRUSH.SIZE 369966 . 370347) (SK.TEXTBOX.CREATE 370349 . 371146) (SK.TEXTBOX.CREATE1 371148 . 372212
-) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 372214 . 372754) (SK.TEXTBOX.POSITION.IN.BOX 372756 . 374667) (
-TEXTBOX.CHANGEFN 374669 . 375143) (TEXTBOX.DRAWFN 375145 . 377181) (SK.TEXTURE.AROUND.REGIONS 377183
- . 383256) (ALL.EMPTY.REGIONS 383258 . 383748) (TEXTBOX.EXPANDFN 383750 . 390906) (TEXTBOX.INPUTFN 
-390908 . 392521) (TEXTBOX.INSIDEFN 392523 . 392936) (TEXTBOX.REGIONFN 392938 . 393792) (
-TEXTBOX.GLOBALREGIONFN 393794 . 394122) (TEXTBOX.SET.GLOBAL.REGIONS 394124 . 395455) (
-TEXTBOX.TRANSLATEFN 395457 . 397298) (TEXTBOX.TRANSLATEPTSFN 397300 . 400083) (TEXTBOX.TRANSFORMFN 
-400085 . 401753) (TEXTBOX.UPDATEFN 401755 . 403648) (TEXTBOX.READCHANGEFN 403650 . 408539) (
-SK.TEXTBOX.TEXT.POSITION 408541 . 408962) (SK.TEXTBOX.FROM.TEXT 408964 . 411569) (ADD.EOLS 411571 . 
-412336)) (412867 416368 (SK.SET.TEXTBOX.VERT.ALIGN 412877 . 414757) (SK.SET.TEXTBOX.HORIZ.ALIGN 414759
- . 416366)) (416751 461226 (SKETCH.CREATE.BOX 416761 . 417244) (SK.BOX.DRAWFN 417246 . 418405) (
-BOX.DRAWFN1 418407 . 421246) (KNOTS.OF.REGION 421248 . 422482) (SK.DRAWAREABOX 422484 . 429085) (
-SK.DRAWBOX 429087 . 430276) (SK.BOX.EXPANDFN 430278 . 434026) (SK.BOX.GETREGIONFN 434028 . 435214) (
-BOX.SET.SCALES 435216 . 436456) (SK.BOX.INPUTFN 436458 . 438391) (SK.BOX.CREATE 438393 . 439094) (
-SK.UPDATE.BOX.AFTER.CHANGE 439096 . 439607) (SK.BOX.INSIDEFN 439609 . 439999) (SK.BOX.REGIONFN 440001
- . 440714) (SK.BOX.GLOBALREGIONFN 440716 . 441454) (SK.BOX.READCHANGEFN 441456 . 445177) (
-SK.CHANGE.FILLING 445179 . 449127) (SK.CHANGE.FILLING.COLOR 449129 . 452785) (SK.BOX.TRANSLATEFN 
-452787 . 453966) (SK.BOX.TRANSFORMFN 453968 . 454913) (SK.BOX.TRANSLATEPTSFN 454915 . 457283) (
-UNSCALE.REGION.TO.GRID 457285 . 458210) (INCREASEREGION 458212 . 458803) (INSUREREGIONSIZE 458805 . 
-459976) (EXPANDREGION 459978 . 460858) (REGION.FROM.COORDINATES 460860 . 461224)) (461762 488117 (
-SKETCH.CREATE.ARC 461772 . 462581) (ARC.DRAWFN 462583 . 464310) (ARC.EXPANDFN 464312 . 466645) (
-ARC.INPUTFN 466647 . 470865) (SK.INVERT.CIRCLE 470867 . 471727) (SK.READ.ARC.ANGLE.POINT 471729 . 
-472236) (SK.SHOW.ARC 472238 . 472848) (ARC.CREATE 472850 . 474205) (SK.UPDATE.ARC.AFTER.CHANGE 474207
- . 474547) (ARC.MOVEFN 474549 . 476132) (ARC.TRANSLATEPTS 476134 . 478019) (ARC.INSIDEFN 478021 . 
-478271) (ARC.REGIONFN 478273 . 479409) (ARC.GLOBALREGIONFN 479411 . 481133) (ARC.TRANSLATE 481135 . 
-482117) (ARC.TRANSFORMFN 482119 . 485069) (ARC.READCHANGEFN 485071 . 488115)) (488118 497197 (
-SK.COMPUTE.ARC.ANGLE.PT 488128 . 489054) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 489056 . 490049) (
-SK.COMPUTE.ARC.PTS 490051 . 493623) (SK.SET.ARC.DIRECTION 493625 . 494199) (SK.SET.ARC.DIRECTION.CW 
-494201 . 494375) (SK.SET.ARC.DIRECTION.CCW 494377 . 494650) (SK.COMPUTE.SLOPE.OF.LINE 494652 . 495144)
- (SK.CREATE.ARC.USING 495146 . 496383) (SET.ARC.SCALES 496385 . 497195)) (497198 497643 (
-SK.INSURE.DIRECTION 497208 . 497641)) (499014 544873 (GETSKETCHELEMENTPROP 499024 . 500332) (
-\SK.GET.ARC.ANGLEPT 500334 . 500895) (\GETSKETCHELEMENTPROP1 500897 . 501151) (\SK.GET.BRUSH 501153 . 
-502077) (\SK.GET.FILLING 502079 . 503177) (\SK.GET.ARROWHEADS 503179 . 503958) (\SK.GET.FONT 503960 . 
-504440) (\SK.GET.JUSTIFICATION 504442 . 504966) (\SK.GET.DIRECTION 504968 . 505445) (\SK.GET.DASHING 
-505447 . 506466) (PUTSKETCHELEMENTPROP 506468 . 508737) (\SK.PUT.FILLING 508739 . 510009) (
-ADDSKETCHELEMENTPROP 510011 . 510816) (REMOVESKETCHELEMENTPROP 510818 . 511607) (\SK.PUT.FONT 511609
- . 512423) (\SK.PUT.JUSTIFICATION 512425 . 513436) (\SK.PUT.DIRECTION 513438 . 514045) (
-\SK.PUT.DASHING 514047 . 515382) (\SK.PUT.BRUSH 515384 . 517303) (\SK.PUT.ARROWHEADS 517305 . 519271) 
-(SK.COPY.ELEMENT.PROPERTY.LIST 519273 . 519849) (SKETCH.UPDATE 519851 . 520581) (SKETCH.UPDATE1 520583
- . 521871) (\SKELT.GET.SCALE 521873 . 522861) (\SKELT.PUT.SCALE 522863 . 524170) (\SKELT.PUT.DATA 
-524172 . 525969) (SK.REPLACE.TEXT.IN.ELEMENT 525971 . 526924) (\SKELT.GET.DATA 526926 . 527993) (
-\SK.GET.1STCONTROLPT 527995 . 529507) (\SK.PUT.1STCONTROLPT 529509 . 534982) (\SK.GET.2NDCONTROLPT 
-534984 . 535899) (\SK.PUT.2NDCONTROLPT 535901 . 540089) (\SK.GET.3RDCONTROLPT 540091 . 540969) (
-\SK.PUT.3RDCONTROLPT 540971 . 544871)) (544874 545455 (LOWERLEFTCORNER 544884 . 545130) (
-UPPERRIGHTCORNER 545132 . 545453)))))
+308664 . 309181) (TEXT.UPDATEFN 309183 . 313839) (SK.CHANGE.TEXT 313841 . 324163) (SK.CHANGE.FONT 
+324165 . 325309) (TEXT.SET.SCALES 325311 . 326279) (BREAK.AT.CARRIAGE.RETURNS 326281 . 327241)) (
+327244 340229 (SK.PICK.FONT 327254 . 331526) (SK.CHOOSE.TEXT.FONT 331528 . 335799) (SK.NEXTSIZEFONT 
+335801 . 337433) (SK.DECREASING.FONT.LIST 337435 . 340227)) (340648 352322 (SK.SET.FONT 340658 . 
+341925) (SK.SET.TEXT.FONT 341927 . 342929) (SK.SET.TEXT.SIZE 342931 . 343618) (SK.SET.TEXT.HORIZ.ALIGN
+ 343620 . 345194) (SK.READFONTSIZE 345196 . 347094) (SK.COLLECT.FONT.SIZES 347096 . 348177) (
+SK.SET.TEXT.VERT.ALIGN 348179 . 350221) (SK.SET.TEXT.LOOKS 350223 . 351680) (SK.SET.DEFAULT.TEXT.FACE 
+351682 . 352320)) (352323 352909 (CREATE.SKETCH.TERMTABLE 352333 . 352907)) (352910 354676 (
+SK.FONT.LIST 352920 . 353246) (SK.INSURE.FONT 353248 . 353770) (SK.INSURE.STYLE 353772 . 354290) (
+SK.INSURE.TEXT 354292 . 354674)) (355216 412509 (SKETCH.CREATE.TEXTBOX 355226 . 356868) (
+SK.COMPUTE.TEXTBOX.REGION.FOR.STRING 356870 . 358947) (SK.BREAK.INTO.LINES 358949 . 370135) (
+SK.BRUSH.SIZE 370137 . 370518) (SK.TEXTBOX.CREATE 370520 . 371317) (SK.TEXTBOX.CREATE1 371319 . 372383
+) (SK.UPDATE.TEXTBOX.AFTER.CHANGE 372385 . 372925) (SK.TEXTBOX.POSITION.IN.BOX 372927 . 374838) (
+TEXTBOX.CHANGEFN 374840 . 375314) (TEXTBOX.DRAWFN 375316 . 377352) (SK.TEXTURE.AROUND.REGIONS 377354
+ . 383427) (ALL.EMPTY.REGIONS 383429 . 383919) (TEXTBOX.EXPANDFN 383921 . 391077) (TEXTBOX.INPUTFN 
+391079 . 392692) (TEXTBOX.INSIDEFN 392694 . 393107) (TEXTBOX.REGIONFN 393109 . 393963) (
+TEXTBOX.GLOBALREGIONFN 393965 . 394293) (TEXTBOX.SET.GLOBAL.REGIONS 394295 . 395626) (
+TEXTBOX.TRANSLATEFN 395628 . 397469) (TEXTBOX.TRANSLATEPTSFN 397471 . 400254) (TEXTBOX.TRANSFORMFN 
+400256 . 401924) (TEXTBOX.UPDATEFN 401926 . 403819) (TEXTBOX.READCHANGEFN 403821 . 408710) (
+SK.TEXTBOX.TEXT.POSITION 408712 . 409133) (SK.TEXTBOX.FROM.TEXT 409135 . 411740) (ADD.EOLS 411742 . 
+412507)) (413038 416539 (SK.SET.TEXTBOX.VERT.ALIGN 413048 . 414928) (SK.SET.TEXTBOX.HORIZ.ALIGN 414930
+ . 416537)) (416922 461397 (SKETCH.CREATE.BOX 416932 . 417415) (SK.BOX.DRAWFN 417417 . 418576) (
+BOX.DRAWFN1 418578 . 421417) (KNOTS.OF.REGION 421419 . 422653) (SK.DRAWAREABOX 422655 . 429256) (
+SK.DRAWBOX 429258 . 430447) (SK.BOX.EXPANDFN 430449 . 434197) (SK.BOX.GETREGIONFN 434199 . 435385) (
+BOX.SET.SCALES 435387 . 436627) (SK.BOX.INPUTFN 436629 . 438562) (SK.BOX.CREATE 438564 . 439265) (
+SK.UPDATE.BOX.AFTER.CHANGE 439267 . 439778) (SK.BOX.INSIDEFN 439780 . 440170) (SK.BOX.REGIONFN 440172
+ . 440885) (SK.BOX.GLOBALREGIONFN 440887 . 441625) (SK.BOX.READCHANGEFN 441627 . 445348) (
+SK.CHANGE.FILLING 445350 . 449298) (SK.CHANGE.FILLING.COLOR 449300 . 452956) (SK.BOX.TRANSLATEFN 
+452958 . 454137) (SK.BOX.TRANSFORMFN 454139 . 455084) (SK.BOX.TRANSLATEPTSFN 455086 . 457454) (
+UNSCALE.REGION.TO.GRID 457456 . 458381) (INCREASEREGION 458383 . 458974) (INSUREREGIONSIZE 458976 . 
+460147) (EXPANDREGION 460149 . 461029) (REGION.FROM.COORDINATES 461031 . 461395)) (461933 488288 (
+SKETCH.CREATE.ARC 461943 . 462752) (ARC.DRAWFN 462754 . 464481) (ARC.EXPANDFN 464483 . 466816) (
+ARC.INPUTFN 466818 . 471036) (SK.INVERT.CIRCLE 471038 . 471898) (SK.READ.ARC.ANGLE.POINT 471900 . 
+472407) (SK.SHOW.ARC 472409 . 473019) (ARC.CREATE 473021 . 474376) (SK.UPDATE.ARC.AFTER.CHANGE 474378
+ . 474718) (ARC.MOVEFN 474720 . 476303) (ARC.TRANSLATEPTS 476305 . 478190) (ARC.INSIDEFN 478192 . 
+478442) (ARC.REGIONFN 478444 . 479580) (ARC.GLOBALREGIONFN 479582 . 481304) (ARC.TRANSLATE 481306 . 
+482288) (ARC.TRANSFORMFN 482290 . 485240) (ARC.READCHANGEFN 485242 . 488286)) (488289 497368 (
+SK.COMPUTE.ARC.ANGLE.PT 488299 . 489225) (SK.COMPUTE.ARC.ANGLE.PT.FROM.ANGLE 489227 . 490220) (
+SK.COMPUTE.ARC.PTS 490222 . 493794) (SK.SET.ARC.DIRECTION 493796 . 494370) (SK.SET.ARC.DIRECTION.CW 
+494372 . 494546) (SK.SET.ARC.DIRECTION.CCW 494548 . 494821) (SK.COMPUTE.SLOPE.OF.LINE 494823 . 495315)
+ (SK.CREATE.ARC.USING 495317 . 496554) (SET.ARC.SCALES 496556 . 497366)) (497369 497814 (
+SK.INSURE.DIRECTION 497379 . 497812)) (499185 545044 (GETSKETCHELEMENTPROP 499195 . 500503) (
+\SK.GET.ARC.ANGLEPT 500505 . 501066) (\GETSKETCHELEMENTPROP1 501068 . 501322) (\SK.GET.BRUSH 501324 . 
+502248) (\SK.GET.FILLING 502250 . 503348) (\SK.GET.ARROWHEADS 503350 . 504129) (\SK.GET.FONT 504131 . 
+504611) (\SK.GET.JUSTIFICATION 504613 . 505137) (\SK.GET.DIRECTION 505139 . 505616) (\SK.GET.DASHING 
+505618 . 506637) (PUTSKETCHELEMENTPROP 506639 . 508908) (\SK.PUT.FILLING 508910 . 510180) (
+ADDSKETCHELEMENTPROP 510182 . 510987) (REMOVESKETCHELEMENTPROP 510989 . 511778) (\SK.PUT.FONT 511780
+ . 512594) (\SK.PUT.JUSTIFICATION 512596 . 513607) (\SK.PUT.DIRECTION 513609 . 514216) (
+\SK.PUT.DASHING 514218 . 515553) (\SK.PUT.BRUSH 515555 . 517474) (\SK.PUT.ARROWHEADS 517476 . 519442) 
+(SK.COPY.ELEMENT.PROPERTY.LIST 519444 . 520020) (SKETCH.UPDATE 520022 . 520752) (SKETCH.UPDATE1 520754
+ . 522042) (\SKELT.GET.SCALE 522044 . 523032) (\SKELT.PUT.SCALE 523034 . 524341) (\SKELT.PUT.DATA 
+524343 . 526140) (SK.REPLACE.TEXT.IN.ELEMENT 526142 . 527095) (\SKELT.GET.DATA 527097 . 528164) (
+\SK.GET.1STCONTROLPT 528166 . 529678) (\SK.PUT.1STCONTROLPT 529680 . 535153) (\SK.GET.2NDCONTROLPT 
+535155 . 536070) (\SK.PUT.2NDCONTROLPT 536072 . 540260) (\SK.GET.3RDCONTROLPT 540262 . 541140) (
+\SK.PUT.3RDCONTROLPT 541142 . 545042)) (545045 545626 (LOWERLEFTCORNER 545055 . 545301) (
+UPPERRIGHTCORNER 545303 . 545624)))))
 STOP
diff --git a/library/sketch/SKETCH-ELEMENTS.LCOM b/library/sketch/SKETCH-ELEMENTS.LCOM
index 68be46ea..5b9b5303 100644
Binary files a/library/sketch/SKETCH-ELEMENTS.LCOM and b/library/sketch/SKETCH-ELEMENTS.LCOM differ
