diff --git a/sources/HARDCOPY b/sources/HARDCOPY
index f04908c8..b108f60a 100644
--- a/sources/HARDCOPY
+++ b/sources/HARDCOPY
@@ -1,11 +1,11 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED " 6-Dec-2025 10:59:31" {WMEDLEY}<sources>HARDCOPY.;95 150352 
+(FILECREATED " 7-Dec-2025 11:09:32" {WMEDLEY}<sources>HARDCOPY.;96 150536 
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS MakeMenuOfPrinters HARDCOPYIMAGEW.TOPRINTER HARDCOPYREGION.TOPRINTER 
-                       NewPrinter HARDCOPYW)
+      :CHANGES-TO (FNS SEND.FILE.TO.PRINTER MakeMenuOfPrinters HARDCOPYIMAGEW.TOPRINTER 
+                       HARDCOPYREGION.TOPRINTER NewPrinter HARDCOPYW)
 
       :PREVIOUS-DATE " 5-Dec-2025 17:24:03" {WMEDLEY}<sources>HARDCOPY.;93)
 
@@ -703,7 +703,8 @@
            X])
 
 (SEND.FILE.TO.PRINTER
-  [LAMBDA (FILE HOST PRINTOPTIONS)                           (* ; "Edited  5-Dec-2025 14:41 by rmk")
+  [LAMBDA (FILE HOST PRINTOPTIONS)                           (* ; "Edited  7-Dec-2025 11:08 by rmk")
+                                                             (* ; "Edited  5-Dec-2025 14:41 by rmk")
                                                              (* ; "Edited 27-Sep-2025 07:43 by rmk")
                                                              (* ; "Edited 25-Sep-2025 21:34 by rmk")
                                                              (* ; "Edited 20-Sep-2025 13:23 by rmk")
@@ -728,7 +729,8 @@
 
              (* ;; "")
 
-             (SETQ PRINTER (if (OR (NULL HOST)
+             (SETQ PRINTER (if (OR (EQ HOST :DEFAULT)
+                                   (NULL HOST)
                                    (EQ 0 (NCHARS HOST)))
                                then (CAR PRINTERS)
                              elseif (PRINTERDEVICEP HOST)
@@ -2417,39 +2419,39 @@
 (ADDTOVAR LAMA )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (6487 14272 (HARDCOPY.SOMEHOW 6497 . 8733) (HARDCOPYIMAGEW 8735 . 9185) (
-HARDCOPYIMAGEW.TOFILE 9187 . 9479) (HARDCOPYIMAGEW.TOPRINTER 9481 . 11310) (HARDCOPYREGION.TOFILE 
-11312 . 11854) (HARDCOPYREGION.TOPRINTER 11856 . 13251) (COPY.WINDOW.TO.BITMAP 13253 . 14270)) (14344 
-26760 (MakeMenuOfPrinters 14354 . 15825) (PRINTERS.WHENSELECTEDFN 15827 . 17450) (MakeMenuOfImageTypes
- 17452 . 18271) (GetNewPrinterFromUser 18273 . 18715) (PopUpWindowAndGetAtom 18717 . 20168) (
-PopUpWindowAndGetList 20170 . 21740) (NewPrinter 21742 . 23237) (GetPrinterName 23239 . 23527) (
-GetImageFile 23529 . 26508) (FetchDefaultPrinter 26510 . 26758)) (26815 44890 (DEFAULTPRINTER 26825 . 
-27086) (CONVERT.FILE.TO.TYPE.FOR.PRINTER 27088 . 28065) (CAN.PRINT.DIRECTLY 28067 . 28500) (EMPRESS 
-28502 . 29077) (HARDCOPYW 29079 . 33968) (LISTFILES1 33970 . 34147) (PRINTER.BITMAPFILE 34149 . 34538)
- (PRINTER.BITMAPSCALE 34540 . 35024) (PRINTER.SCRATCH.FILE 35026 . 35337) (PRINTERPROP 35339 . 35589) 
-(PRINTERSTATUS 35591 . 35866) (PRINTERTYPE 35868 . 38503) (PRINTERNAME 38505 . 39591) (PRINTFILETYPE 
-39593 . 39855) (PRINTERTYPEP 39857 . 40082) (SEND.FILE.TO.PRINTER 40084 . 44888)) (44891 51450 (
-PRINTERDEVICE 44901 . 45878) (PRINTERDEVICE.OPENFN 45880 . 46600) (PRINTERDEVICE.CLOSEFN 46602 . 49687
-) (PRINTERDEVICEP 49689 . 50360) (PRINTERNAME 50362 . 51448)) (51512 53152 (PRINTERS 51522 . 53150)) (
-53447 54005 (SCALEREGION 53457 . 54003)) (54229 61292 (TEXTTOIMAGEFILE 54239 . 55098) (
-COPY.TEXT.TO.IMAGE 55100 . 61290)) (61354 63097 (\BLTSHADE.GENERICPRINTER 61364 . 63095)) (63164 
-100330 (MAKEHARDCOPYSTREAM 63174 . 64890) (UNMAKEHARDCOPYSTREAM 64892 . 65822) (HARDCOPYSTREAMTYPE 
-65824 . 66231) (\CHARWIDTH.HDCPYDISPLAY 66233 . 67053) (\DSPFONT.HDCPYDISPLAY 67055 . 69850) (
-\DSPRIGHTMARGIN.HDCPYDISPLAY 69852 . 70707) (\DSPXPOSITION.HDCPYDISPLAY 70709 . 71084) (
-\DSPYPOSITION.HDCPYDISPLAY 71086 . 71461) (\STRINGWIDTH.HDCPYDISPLAY 71463 . 72418) (
-\STRINGWIDTH.HCPYDISPLAYAUX 72420 . 77760) (\HDCPYBLTCHAR 77762 . 82659) (\HDCPYDISPLAY.FIX.XPOS 82661
- . 83418) (\HDCPYDISPLAY.FIX.YPOS 83420 . 84161) (\HDCPYDISPLAYINIT 84163 . 85853) (\HDCPYDSPPRINTCHAR
- 85855 . 91768) (\SLOWHDCPYBLTCHAR 91770 . 98386) (\CHANGECHARSET.HDCPYDISPLAY 98388 . 100328)) (
-100645 150196 (MAKEHARDCOPYMODESTREAM 100655 . 103376) (UNMAKEHARDCOPYMODESTREAM 103378 . 104968) (
-\HCPYDISPLAYIMAGEOPS 104970 . 107790) (\BLTSHADE.HCPYMODE 107792 . 108458) (\BITBLT.HCPYMODE 108460 . 
-109208) (\BRUSHCONVERT.HCPYMODE 109210 . 109759) (\CHANGECHARSET.HCPYMODE 109761 . 113023) (
-\DASHINGCONVERT.HCPYMODE 113025 . 113366) (\CHARWIDTH.HCPYMODE 113368 . 113805) (\DRAWLINE.HCPYMODE 
-113807 . 114336) (\DRAWCURVE.HCPYMODE 114338 . 114925) (\DRAWCIRCLE.HCPYMODE 114927 . 115412) (
-\DRAWELLIPSE.HCPYMODE 115414 . 116098) (\DSPFONT.HCPYMODE 116100 . 118784) (\DSPLEFTMARGIN.HCPYMODE 
-118786 . 119528) (\DSPLINEFEED.HCPYMODE 119530 . 120163) (\DSPRIGHTMARGIN.HCPYMODE 120165 . 121233) (
-\DSPSPACEFACTOR.HCPYMODE 121235 . 122010) (\DSPXPOSITION.HCPYMODE 122012 . 123030) (
-\DSPYPOSITION.HCPYMODE 123032 . 123682) (\MOVETO.HCPYMODE 123684 . 123898) (\FONTCREATE.HCPYMODE 
-123900 . 125857) (\CREATECHARSET.HCPYMODE 125859 . 127582) (\STRINGWIDTH.HCPYMODE 127584 . 128379) (
-\HCPYMODEBLTCHAR 128381 . 134131) (\HCPYMODEDSPPRINTCHAR 134133 . 140067) (\SLOWHCPYMODEBLTCHAR 140069
- . 146698) (\SFFixY.HCPYMODE 146700 . 150194)))))
+  (FILEMAP (NIL (6508 14293 (HARDCOPY.SOMEHOW 6518 . 8754) (HARDCOPYIMAGEW 8756 . 9206) (
+HARDCOPYIMAGEW.TOFILE 9208 . 9500) (HARDCOPYIMAGEW.TOPRINTER 9502 . 11331) (HARDCOPYREGION.TOFILE 
+11333 . 11875) (HARDCOPYREGION.TOPRINTER 11877 . 13272) (COPY.WINDOW.TO.BITMAP 13274 . 14291)) (14365 
+26781 (MakeMenuOfPrinters 14375 . 15846) (PRINTERS.WHENSELECTEDFN 15848 . 17471) (MakeMenuOfImageTypes
+ 17473 . 18292) (GetNewPrinterFromUser 18294 . 18736) (PopUpWindowAndGetAtom 18738 . 20189) (
+PopUpWindowAndGetList 20191 . 21761) (NewPrinter 21763 . 23258) (GetPrinterName 23260 . 23548) (
+GetImageFile 23550 . 26529) (FetchDefaultPrinter 26531 . 26779)) (26836 45074 (DEFAULTPRINTER 26846 . 
+27107) (CONVERT.FILE.TO.TYPE.FOR.PRINTER 27109 . 28086) (CAN.PRINT.DIRECTLY 28088 . 28521) (EMPRESS 
+28523 . 29098) (HARDCOPYW 29100 . 33989) (LISTFILES1 33991 . 34168) (PRINTER.BITMAPFILE 34170 . 34559)
+ (PRINTER.BITMAPSCALE 34561 . 35045) (PRINTER.SCRATCH.FILE 35047 . 35358) (PRINTERPROP 35360 . 35610) 
+(PRINTERSTATUS 35612 . 35887) (PRINTERTYPE 35889 . 38524) (PRINTERNAME 38526 . 39612) (PRINTFILETYPE 
+39614 . 39876) (PRINTERTYPEP 39878 . 40103) (SEND.FILE.TO.PRINTER 40105 . 45072)) (45075 51634 (
+PRINTERDEVICE 45085 . 46062) (PRINTERDEVICE.OPENFN 46064 . 46784) (PRINTERDEVICE.CLOSEFN 46786 . 49871
+) (PRINTERDEVICEP 49873 . 50544) (PRINTERNAME 50546 . 51632)) (51696 53336 (PRINTERS 51706 . 53334)) (
+53631 54189 (SCALEREGION 53641 . 54187)) (54413 61476 (TEXTTOIMAGEFILE 54423 . 55282) (
+COPY.TEXT.TO.IMAGE 55284 . 61474)) (61538 63281 (\BLTSHADE.GENERICPRINTER 61548 . 63279)) (63348 
+100514 (MAKEHARDCOPYSTREAM 63358 . 65074) (UNMAKEHARDCOPYSTREAM 65076 . 66006) (HARDCOPYSTREAMTYPE 
+66008 . 66415) (\CHARWIDTH.HDCPYDISPLAY 66417 . 67237) (\DSPFONT.HDCPYDISPLAY 67239 . 70034) (
+\DSPRIGHTMARGIN.HDCPYDISPLAY 70036 . 70891) (\DSPXPOSITION.HDCPYDISPLAY 70893 . 71268) (
+\DSPYPOSITION.HDCPYDISPLAY 71270 . 71645) (\STRINGWIDTH.HDCPYDISPLAY 71647 . 72602) (
+\STRINGWIDTH.HCPYDISPLAYAUX 72604 . 77944) (\HDCPYBLTCHAR 77946 . 82843) (\HDCPYDISPLAY.FIX.XPOS 82845
+ . 83602) (\HDCPYDISPLAY.FIX.YPOS 83604 . 84345) (\HDCPYDISPLAYINIT 84347 . 86037) (\HDCPYDSPPRINTCHAR
+ 86039 . 91952) (\SLOWHDCPYBLTCHAR 91954 . 98570) (\CHANGECHARSET.HDCPYDISPLAY 98572 . 100512)) (
+100829 150380 (MAKEHARDCOPYMODESTREAM 100839 . 103560) (UNMAKEHARDCOPYMODESTREAM 103562 . 105152) (
+\HCPYDISPLAYIMAGEOPS 105154 . 107974) (\BLTSHADE.HCPYMODE 107976 . 108642) (\BITBLT.HCPYMODE 108644 . 
+109392) (\BRUSHCONVERT.HCPYMODE 109394 . 109943) (\CHANGECHARSET.HCPYMODE 109945 . 113207) (
+\DASHINGCONVERT.HCPYMODE 113209 . 113550) (\CHARWIDTH.HCPYMODE 113552 . 113989) (\DRAWLINE.HCPYMODE 
+113991 . 114520) (\DRAWCURVE.HCPYMODE 114522 . 115109) (\DRAWCIRCLE.HCPYMODE 115111 . 115596) (
+\DRAWELLIPSE.HCPYMODE 115598 . 116282) (\DSPFONT.HCPYMODE 116284 . 118968) (\DSPLEFTMARGIN.HCPYMODE 
+118970 . 119712) (\DSPLINEFEED.HCPYMODE 119714 . 120347) (\DSPRIGHTMARGIN.HCPYMODE 120349 . 121417) (
+\DSPSPACEFACTOR.HCPYMODE 121419 . 122194) (\DSPXPOSITION.HCPYMODE 122196 . 123214) (
+\DSPYPOSITION.HCPYMODE 123216 . 123866) (\MOVETO.HCPYMODE 123868 . 124082) (\FONTCREATE.HCPYMODE 
+124084 . 126041) (\CREATECHARSET.HCPYMODE 126043 . 127766) (\STRINGWIDTH.HCPYMODE 127768 . 128563) (
+\HCPYMODEBLTCHAR 128565 . 134315) (\HCPYMODEDSPPRINTCHAR 134317 . 140251) (\SLOWHCPYMODEBLTCHAR 140253
+ . 146882) (\SFFixY.HCPYMODE 146884 . 150378)))))
 STOP
diff --git a/sources/HARDCOPY.LCOM b/sources/HARDCOPY.LCOM
index bba52571..d18dc0bb 100644
Binary files a/sources/HARDCOPY.LCOM and b/sources/HARDCOPY.LCOM differ
