diff --git a/sources/HARDCOPY b/sources/HARDCOPY
index 6f399be5..e0efaeb9 100644
--- a/sources/HARDCOPY
+++ b/sources/HARDCOPY
@@ -1,14 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 5-Dec-2025 17:24:03" {WMEDLEY}<sources>HARDCOPY.;93 149900 
+(FILECREATED " 6-Dec-2025 00:46:05" {WMEDLEY}<sources>HARDCOPY.;94 149688 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS HARDCOPYIMAGEW.TOPRINTER PRINTERTYPE NewPrinter PRINTERS SEND.FILE.TO.PRINTER
-                       CAN.PRINT.DIRECTLY MakeMenuOfPrinters DEFAULTPRINTER PRINTERTYPEP)
-                  (VARS HARDCOPYCOMS)
+      :CHANGES-TO (FNS HARDCOPYREGION.TOPRINTER)
 
-      :PREVIOUS-DATE " 5-Dec-2025 10:37:26" {WMEDLEY}<sources>HARDCOPY.;87)
+      :PREVIOUS-DATE " 5-Dec-2025 17:24:03" {WMEDLEY}<sources>HARDCOPY.;93)
 
 
 (PRETTYCOMPRINT HARDCOPYCOMS)
@@ -213,7 +211,8 @@
                                NIL NIL NIL (CDR FILE&TYPE])
 
 (HARDCOPYREGION.TOPRINTER
-  [LAMBDA NIL                                                (* ; "Edited 13-Jul-90 01:57 by jds")
+  [LAMBDA NIL                                                (* ; "Edited  6-Dec-2025 00:45 by rmk")
+                                                             (* ; "Edited 13-Jul-90 01:57 by jds")
     (LET ((PRINTERCHOICE (GetPrinterName))
           PRINTERTYPE)
          [COND
@@ -223,14 +222,13 @@
              (SETQ PRINTERCHOICE (CADR PRINTERCHOICE)))
             (PRINTERCHOICE                                   (* ; "Got back just a name.")
                    (SETQ PRINTERTYPE (PRINTERTYPE PRINTERCHOICE]
-         (COND
-            (PRINTERCHOICE (PROG (REGION)
-                                 (SPAWN.MOUSE)
-                                 (PROMPTPRINT "Select a region")
-                                 (SETQ REGION (GETREGION))
-                                 (CLRPROMPT)
-                                 (HARDCOPYW REGION (PACK* '{LPT} PRINTERCHOICE)
-                                        NIL NIL NIL (PRINTERTYPE PRINTERCHOICE])
+         (PROG (REGION)
+               (SPAWN.MOUSE)
+               (PROMPTPRINT "Select a region")
+               (SETQ REGION (GETREGION))
+               (CLRPROMPT)
+               (HARDCOPYW REGION (PACK* '{LPT} PRINTERCHOICE)
+                      NIL NIL NIL (PRINTERTYPE PRINTERCHOICE])
 
 (COPY.WINDOW.TO.BITMAP
   [LAMBDA (WINDOW)                                           (* ; "Edited 26-Aug-87 14:09 by Snow")
@@ -2410,39 +2408,39 @@
 (ADDTOVAR LAMA )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (6578 13917 (HARDCOPY.SOMEHOW 6588 . 8824) (HARDCOPYIMAGEW 8826 . 9276) (
-HARDCOPYIMAGEW.TOFILE 9278 . 9570) (HARDCOPYIMAGEW.TOPRINTER 9572 . 11237) (HARDCOPYREGION.TOFILE 
-11239 . 11781) (HARDCOPYREGION.TOPRINTER 11783 . 12896) (COPY.WINDOW.TO.BITMAP 12898 . 13915)) (13989 
-26293 (MakeMenuOfPrinters 13999 . 15457) (PRINTERS.WHENSELECTEDFN 15459 . 17082) (MakeMenuOfImageTypes
- 17084 . 17903) (GetNewPrinterFromUser 17905 . 18347) (PopUpWindowAndGetAtom 18349 . 19800) (
-PopUpWindowAndGetList 19802 . 21372) (NewPrinter 21374 . 22770) (GetPrinterName 22772 . 23060) (
-GetImageFile 23062 . 26041) (FetchDefaultPrinter 26043 . 26291)) (26348 44438 (DEFAULTPRINTER 26358 . 
-26619) (CONVERT.FILE.TO.TYPE.FOR.PRINTER 26621 . 27598) (CAN.PRINT.DIRECTLY 27600 . 28033) (EMPRESS 
-28035 . 28610) (HARDCOPYW 28612 . 33516) (LISTFILES1 33518 . 33695) (PRINTER.BITMAPFILE 33697 . 34086)
- (PRINTER.BITMAPSCALE 34088 . 34572) (PRINTER.SCRATCH.FILE 34574 . 34885) (PRINTERPROP 34887 . 35137) 
-(PRINTERSTATUS 35139 . 35414) (PRINTERTYPE 35416 . 38051) (PRINTERNAME 38053 . 39139) (PRINTFILETYPE 
-39141 . 39403) (PRINTERTYPEP 39405 . 39630) (SEND.FILE.TO.PRINTER 39632 . 44436)) (44439 50998 (
-PRINTERDEVICE 44449 . 45426) (PRINTERDEVICE.OPENFN 45428 . 46148) (PRINTERDEVICE.CLOSEFN 46150 . 49235
-) (PRINTERDEVICEP 49237 . 49908) (PRINTERNAME 49910 . 50996)) (51060 52700 (PRINTERS 51070 . 52698)) (
-52995 53553 (SCALEREGION 53005 . 53551)) (53777 60840 (TEXTTOIMAGEFILE 53787 . 54646) (
-COPY.TEXT.TO.IMAGE 54648 . 60838)) (60902 62645 (\BLTSHADE.GENERICPRINTER 60912 . 62643)) (62712 99878
- (MAKEHARDCOPYSTREAM 62722 . 64438) (UNMAKEHARDCOPYSTREAM 64440 . 65370) (HARDCOPYSTREAMTYPE 65372 . 
-65779) (\CHARWIDTH.HDCPYDISPLAY 65781 . 66601) (\DSPFONT.HDCPYDISPLAY 66603 . 69398) (
-\DSPRIGHTMARGIN.HDCPYDISPLAY 69400 . 70255) (\DSPXPOSITION.HDCPYDISPLAY 70257 . 70632) (
-\DSPYPOSITION.HDCPYDISPLAY 70634 . 71009) (\STRINGWIDTH.HDCPYDISPLAY 71011 . 71966) (
-\STRINGWIDTH.HCPYDISPLAYAUX 71968 . 77308) (\HDCPYBLTCHAR 77310 . 82207) (\HDCPYDISPLAY.FIX.XPOS 82209
- . 82966) (\HDCPYDISPLAY.FIX.YPOS 82968 . 83709) (\HDCPYDISPLAYINIT 83711 . 85401) (\HDCPYDSPPRINTCHAR
- 85403 . 91316) (\SLOWHDCPYBLTCHAR 91318 . 97934) (\CHANGECHARSET.HDCPYDISPLAY 97936 . 99876)) (100193
- 149744 (MAKEHARDCOPYMODESTREAM 100203 . 102924) (UNMAKEHARDCOPYMODESTREAM 102926 . 104516) (
-\HCPYDISPLAYIMAGEOPS 104518 . 107338) (\BLTSHADE.HCPYMODE 107340 . 108006) (\BITBLT.HCPYMODE 108008 . 
-108756) (\BRUSHCONVERT.HCPYMODE 108758 . 109307) (\CHANGECHARSET.HCPYMODE 109309 . 112571) (
-\DASHINGCONVERT.HCPYMODE 112573 . 112914) (\CHARWIDTH.HCPYMODE 112916 . 113353) (\DRAWLINE.HCPYMODE 
-113355 . 113884) (\DRAWCURVE.HCPYMODE 113886 . 114473) (\DRAWCIRCLE.HCPYMODE 114475 . 114960) (
-\DRAWELLIPSE.HCPYMODE 114962 . 115646) (\DSPFONT.HCPYMODE 115648 . 118332) (\DSPLEFTMARGIN.HCPYMODE 
-118334 . 119076) (\DSPLINEFEED.HCPYMODE 119078 . 119711) (\DSPRIGHTMARGIN.HCPYMODE 119713 . 120781) (
-\DSPSPACEFACTOR.HCPYMODE 120783 . 121558) (\DSPXPOSITION.HCPYMODE 121560 . 122578) (
-\DSPYPOSITION.HCPYMODE 122580 . 123230) (\MOVETO.HCPYMODE 123232 . 123446) (\FONTCREATE.HCPYMODE 
-123448 . 125405) (\CREATECHARSET.HCPYMODE 125407 . 127130) (\STRINGWIDTH.HCPYMODE 127132 . 127927) (
-\HCPYMODEBLTCHAR 127929 . 133679) (\HCPYMODEDSPPRINTCHAR 133681 . 139615) (\SLOWHCPYMODEBLTCHAR 139617
- . 146246) (\SFFixY.HCPYMODE 146248 . 149742)))))
+  (FILEMAP (NIL (6398 13705 (HARDCOPY.SOMEHOW 6408 . 8644) (HARDCOPYIMAGEW 8646 . 9096) (
+HARDCOPYIMAGEW.TOFILE 9098 . 9390) (HARDCOPYIMAGEW.TOPRINTER 9392 . 11057) (HARDCOPYREGION.TOFILE 
+11059 . 11601) (HARDCOPYREGION.TOPRINTER 11603 . 12684) (COPY.WINDOW.TO.BITMAP 12686 . 13703)) (13777 
+26081 (MakeMenuOfPrinters 13787 . 15245) (PRINTERS.WHENSELECTEDFN 15247 . 16870) (MakeMenuOfImageTypes
+ 16872 . 17691) (GetNewPrinterFromUser 17693 . 18135) (PopUpWindowAndGetAtom 18137 . 19588) (
+PopUpWindowAndGetList 19590 . 21160) (NewPrinter 21162 . 22558) (GetPrinterName 22560 . 22848) (
+GetImageFile 22850 . 25829) (FetchDefaultPrinter 25831 . 26079)) (26136 44226 (DEFAULTPRINTER 26146 . 
+26407) (CONVERT.FILE.TO.TYPE.FOR.PRINTER 26409 . 27386) (CAN.PRINT.DIRECTLY 27388 . 27821) (EMPRESS 
+27823 . 28398) (HARDCOPYW 28400 . 33304) (LISTFILES1 33306 . 33483) (PRINTER.BITMAPFILE 33485 . 33874)
+ (PRINTER.BITMAPSCALE 33876 . 34360) (PRINTER.SCRATCH.FILE 34362 . 34673) (PRINTERPROP 34675 . 34925) 
+(PRINTERSTATUS 34927 . 35202) (PRINTERTYPE 35204 . 37839) (PRINTERNAME 37841 . 38927) (PRINTFILETYPE 
+38929 . 39191) (PRINTERTYPEP 39193 . 39418) (SEND.FILE.TO.PRINTER 39420 . 44224)) (44227 50786 (
+PRINTERDEVICE 44237 . 45214) (PRINTERDEVICE.OPENFN 45216 . 45936) (PRINTERDEVICE.CLOSEFN 45938 . 49023
+) (PRINTERDEVICEP 49025 . 49696) (PRINTERNAME 49698 . 50784)) (50848 52488 (PRINTERS 50858 . 52486)) (
+52783 53341 (SCALEREGION 52793 . 53339)) (53565 60628 (TEXTTOIMAGEFILE 53575 . 54434) (
+COPY.TEXT.TO.IMAGE 54436 . 60626)) (60690 62433 (\BLTSHADE.GENERICPRINTER 60700 . 62431)) (62500 99666
+ (MAKEHARDCOPYSTREAM 62510 . 64226) (UNMAKEHARDCOPYSTREAM 64228 . 65158) (HARDCOPYSTREAMTYPE 65160 . 
+65567) (\CHARWIDTH.HDCPYDISPLAY 65569 . 66389) (\DSPFONT.HDCPYDISPLAY 66391 . 69186) (
+\DSPRIGHTMARGIN.HDCPYDISPLAY 69188 . 70043) (\DSPXPOSITION.HDCPYDISPLAY 70045 . 70420) (
+\DSPYPOSITION.HDCPYDISPLAY 70422 . 70797) (\STRINGWIDTH.HDCPYDISPLAY 70799 . 71754) (
+\STRINGWIDTH.HCPYDISPLAYAUX 71756 . 77096) (\HDCPYBLTCHAR 77098 . 81995) (\HDCPYDISPLAY.FIX.XPOS 81997
+ . 82754) (\HDCPYDISPLAY.FIX.YPOS 82756 . 83497) (\HDCPYDISPLAYINIT 83499 . 85189) (\HDCPYDSPPRINTCHAR
+ 85191 . 91104) (\SLOWHDCPYBLTCHAR 91106 . 97722) (\CHANGECHARSET.HDCPYDISPLAY 97724 . 99664)) (99981 
+149532 (MAKEHARDCOPYMODESTREAM 99991 . 102712) (UNMAKEHARDCOPYMODESTREAM 102714 . 104304) (
+\HCPYDISPLAYIMAGEOPS 104306 . 107126) (\BLTSHADE.HCPYMODE 107128 . 107794) (\BITBLT.HCPYMODE 107796 . 
+108544) (\BRUSHCONVERT.HCPYMODE 108546 . 109095) (\CHANGECHARSET.HCPYMODE 109097 . 112359) (
+\DASHINGCONVERT.HCPYMODE 112361 . 112702) (\CHARWIDTH.HCPYMODE 112704 . 113141) (\DRAWLINE.HCPYMODE 
+113143 . 113672) (\DRAWCURVE.HCPYMODE 113674 . 114261) (\DRAWCIRCLE.HCPYMODE 114263 . 114748) (
+\DRAWELLIPSE.HCPYMODE 114750 . 115434) (\DSPFONT.HCPYMODE 115436 . 118120) (\DSPLEFTMARGIN.HCPYMODE 
+118122 . 118864) (\DSPLINEFEED.HCPYMODE 118866 . 119499) (\DSPRIGHTMARGIN.HCPYMODE 119501 . 120569) (
+\DSPSPACEFACTOR.HCPYMODE 120571 . 121346) (\DSPXPOSITION.HCPYMODE 121348 . 122366) (
+\DSPYPOSITION.HCPYMODE 122368 . 123018) (\MOVETO.HCPYMODE 123020 . 123234) (\FONTCREATE.HCPYMODE 
+123236 . 125193) (\CREATECHARSET.HCPYMODE 125195 . 126918) (\STRINGWIDTH.HCPYMODE 126920 . 127715) (
+\HCPYMODEBLTCHAR 127717 . 133467) (\HCPYMODEDSPPRINTCHAR 133469 . 139403) (\SLOWHCPYMODEBLTCHAR 139405
+ . 146034) (\SFFixY.HCPYMODE 146036 . 149530)))))
 STOP
diff --git a/sources/HARDCOPY.LCOM b/sources/HARDCOPY.LCOM
index 0d1dad4f..a31e5953 100644
Binary files a/sources/HARDCOPY.LCOM and b/sources/HARDCOPY.LCOM differ
