diff --git a/sources/PUP b/sources/PUP
index c64000e1..6967ba0b 100644
--- a/sources/PUP
+++ b/sources/PUP
@@ -1,15 +1,13 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP" BASE 8)
-(FILECREATED " 1-May-2021 19:49:18" {DSK}<home>larry>ilisp>medley>sources>PUP.;2 336270Q
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 8)
 
-      changes to%:  (FNS \PUP.SETTIME CANONICAL.HOSTNAME)
-                    (VARS PUPCOMS)
+(FILECREATED "22-Dec-2025 11:58:55" {DSK}<Users>briggs>projects>medley>sources>PUP.;4 334515Q
 
-      previous date%: "19-Jan-93 11:14:09" {DSK}<home>larry>ilisp>medley>sources>PUP.;1)
+      :EDIT-BY nhb
 
+      :CHANGES-TO (FNS \FIND.LOCALPUPHOSTNUMBER)
+
+      :PREVIOUS-DATE "20-Dec-2025 13:51:34" {DSK}<Users>briggs>projects>medley>sources>PUP.;3)
 
-(* ; "
-Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
-")
 
 (PRETTYCOMPRINT PUPCOMS)
 
@@ -45,13 +43,13 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
               (FNS CLEARPUP PUTPUPWORD GETPUPBYTE PUTPUPBYTE GETPUPSTRING GETPUPSTREAM PUTPUPSTRING)
               (OPTIMIZERS GETPUPWORD PUTPUPWORD GETPUPBYTE PUTPUPBYTE))
         (COMS                                                (* ; 
-                                                           "Reading property lists from streams")
+                                                             "Reading property lists from streams")
               (FNS READPLIST)
               (INITVARS \READPLIST.READTABLES)
               (GLOBALVARS \READPLIST.READTABLES))
         (COMS (FNS \CANONICAL.HOSTNAME \CANONICALIZE.PUP.HOSTNAME)
               (P                                             (* ; 
-                                                           "Default this for when IP not loaded")
+                                                             "Default this for when IP not loaded")
                  (MOVD? 'NILL '\CANONICALIZE.IP.HOSTNAME NIL T))
               (ADDVARS (\HOSTNAMES)
                      (\SYSTEMCACHEVARS \HOSTNAMES))
@@ -138,53 +136,52 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
 (ACCESSFNS PUP [(PUPBASE (LOCF (fetch (ETHERPACKET EPBODY) of DATUM]
-                   [BLOCKRECORD PUPBASE ((PUPLENGTH WORD)
-                                         (PUPTCONTROL BYTE)
-                                         (PUPTYPE BYTE)
-                                         (PUPID FIXP)
-                                         (PUPDEST WORD)
-                                         (PUPDESTSOCKET FIXP)
-                                         (PUPSOURCE WORD)
-                                         (PUPSOURCESOCKET FIXP)
-                                         (PUPDATASTART 412Q WORD))
-                          (BLOCKRECORD PUPBASE ((NIL WORD)
-                                                (TYPEWORD WORD)
-                                                (PUPIDHI WORD)
-                                                (PUPIDLO WORD)
-                                                (PUPDESTNET BYTE)
-                                                (PUPDESTHOST BYTE)
-                                                (PUPDESTSOCKETHI WORD)
-                                                (PUPDESTSOCKETLO WORD)
-                                                (PUPSOURCENET BYTE)
-                                                (PUPSOURCEHOST BYTE)
-                                                (PUPSOURCESOCKETHI WORD)
-                                                (PUPSOURCESOCKETLO WORD))
+               [BLOCKRECORD PUPBASE ((PUPLENGTH WORD)
+                                     (PUPTCONTROL BYTE)
+                                     (PUPTYPE BYTE)
+                                     (PUPID FIXP)
+                                     (PUPDEST WORD)
+                                     (PUPDESTSOCKET FIXP)
+                                     (PUPSOURCE WORD)
+                                     (PUPSOURCESOCKET FIXP)
+                                     (PUPDATASTART 412Q WORD))
+                      (BLOCKRECORD PUPBASE ((NIL WORD)
+                                            (TYPEWORD WORD)
+                                            (PUPIDHI WORD)
+                                            (PUPIDLO WORD)
+                                            (PUPDESTNET BYTE)
+                                            (PUPDESTHOST BYTE)
+                                            (PUPDESTSOCKETHI WORD)
+                                            (PUPDESTSOCKETLO WORD)
+                                            (PUPSOURCENET BYTE)
+                                            (PUPSOURCEHOST BYTE)
+                                            (PUPSOURCESOCKETHI WORD)
+                                            (PUPSOURCESOCKETLO WORD))
                                                              (* ; "Temporary extra synonyms")
-                                 (SYNONYM PUPDESTNET (DESTNET))
-                                 (SYNONYM PUPDESTHOST (DESTHOST))
-                                 (SYNONYM PUPDESTSOCKETHI (DESTSKTHI))
-                                 (SYNONYM PUPDESTSOCKETLO (DESTSKTLO))
-                                 (SYNONYM PUPSOURCENET (SOURCENET))
-                                 (SYNONYM PUPSOURCEHOST (SOURCEHOST))
-                                 (SYNONYM PUPSOURCESOCKETHI (SOURCESKTHI))
-                                 (SYNONYM PUPSOURCESOCKETLO (SOURCESKTLO)))
-                          (SYNONYM PUPDEST (DEST))
-                          (SYNONYM PUPDESTSOCKET (DESTSKT))
-                          (SYNONYM PUPSOURCE (SOURCE))
-                          (SYNONYM PUPSOURCESOCKET (SOURCESKT))
-                          (ACCESSFNS PUPDATASTART ((PUPCONTENTS (LOCF DATUM]
-                   [ACCESSFNS PUP [(PUPCHECKSUMBASE (fetch PUPBASE of DATUM))
-                                   (PUPCHECKSUMLOC (\ADDBASE (fetch PUPBASE of DATUM)
-                                                          (FOLDLO (SUB1 (fetch PUPLENGTH
-                                                                           of DATUM))
-                                                                 BYTESPERWORD]
-                          (BLOCKRECORD PUPCHECKSUMLOC ((PUPCHECKSUM WORD]
-                   (TYPE? (type? ETHERPACKET DATUM)))
+                             (SYNONYM PUPDESTNET (DESTNET))
+                             (SYNONYM PUPDESTHOST (DESTHOST))
+                             (SYNONYM PUPDESTSOCKETHI (DESTSKTHI))
+                             (SYNONYM PUPDESTSOCKETLO (DESTSKTLO))
+                             (SYNONYM PUPSOURCENET (SOURCENET))
+                             (SYNONYM PUPSOURCEHOST (SOURCEHOST))
+                             (SYNONYM PUPSOURCESOCKETHI (SOURCESKTHI))
+                             (SYNONYM PUPSOURCESOCKETLO (SOURCESKTLO)))
+                      (SYNONYM PUPDEST (DEST))
+                      (SYNONYM PUPDESTSOCKET (DESTSKT))
+                      (SYNONYM PUPSOURCE (SOURCE))
+                      (SYNONYM PUPSOURCESOCKET (SOURCESKT))
+                      (ACCESSFNS PUPDATASTART ((PUPCONTENTS (LOCF DATUM]
+               [ACCESSFNS PUP [(PUPCHECKSUMBASE (fetch PUPBASE of DATUM))
+                               (PUPCHECKSUMLOC (\ADDBASE (fetch PUPBASE of DATUM)
+                                                      (FOLDLO (SUB1 (fetch PUPLENGTH of DATUM))
+                                                             BYTESPERWORD]
+                      (BLOCKRECORD PUPCHECKSUMLOC ((PUPCHECKSUM WORD]
+               (TYPE? (type? ETHERPACKET DATUM)))
 
 (ACCESSFNS PUPADDRESS ((PUPNET# (LRSH DATUM 10Q))
-                           (PUPHOST# (LOGAND DATUM 377Q)))
-                          (CREATE (IPLUS (LLSH PUPNET# 10Q)
-                                             PUPHOST#)))
+                       (PUPHOST# (LOGAND DATUM 377Q)))
+                      (CREATE (IPLUS (LLSH PUPNET# 10Q)
+                                     PUPHOST#)))
 )
 (DECLARE%: EVAL@COMPILE 
 
@@ -274,23 +271,26 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
                   (RETURN T])])
 
 (\FIND.LOCALPUPHOSTNUMBER
-  [LAMBDA (NDB EVENT QUIET)                              (* bvm%: "26-Jul-84 16:27")
+  [LAMBDA (NDB EVENT QUIET)                                  (* ; "Edited 22-Dec-2025 11:58 by nhb")
+                                                             (* ; "Edited 20-Dec-2025 13:51 by nhb")
+                                                             (* bvm%: "26-Jul-84 16:27")
 
     (* ;; "Finds out our pup address on this 10mb NDB")
 
     (PROG (NEWNUMBER)
           [COND
+             ((NOT (\ETHER-AVAILABLE))
+              (RETURN NIL))
              [(SETQ NEWNUMBER (\LOOKUPPUPNUMBER \MY.NSHOSTNUMBER NDB))
               (COND
-                 (PUPTRACEFLG (printout PUPTRACEFILE "My pup address = " (fetch PUPNET#
-                                                                            of NEWNUMBER)
+                 (PUPTRACEFLG (printout PUPTRACEFILE "My pup address = " (fetch PUPNET# of NEWNUMBER)
                                      "#"
                                      (fetch PUPHOST# of NEWNUMBER)
                                      "#" T]
              (QUIET (RETURN NIL))
              (T (SETQ NEWNUMBER (\PROMPT.FOR.PUP.NUMBER (AND (EQ EVENT 'AFTERLOGOUT)
-                                                                 (NEQ \OLDPUPHOST# 0)
-                                                                 (OCTALSTRING \OLDPUPHOST#]
+                                                             (NEQ \OLDPUPHOST# 0)
+                                                             (OCTALSTRING \OLDPUPHOST#]
 
      (* ;; "Only rely on the host number part of reply.  There is confusion for machines that exist on more than one net")
 
@@ -470,14 +470,14 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
 (ACCESSFNS ERRORPUP ((ERRORPUPBASE (fetch PUPCONTENTS of DATUM)))
-                        (BLOCKRECORD ERRORPUPBASE ((ERRORPUPCOPY 12Q WORD)
+                    (BLOCKRECORD ERRORPUPBASE ((ERRORPUPCOPY 12Q WORD)
                                                              (* ; "Copy of pup header")
-                                                   (ERRORPUPCODE WORD)
-                                                   (ERRORPUPARG WORD)
+                                               (ERRORPUPCODE WORD)
+                                               (ERRORPUPARG WORD)
                                                              (* ; "Usually zero")
-                                                   (ERRORPUPSTRINGBASE WORD)
+                                               (ERRORPUPSTRINGBASE WORD)
                                                              (* ; "Human readable message")
-                                                   )))
+                                               )))
 )
 
 (RPAQQ PUPERRORCODES
@@ -1174,24 +1174,22 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 )
 
 (DEFOPTIMIZER GETPUPWORD (PUPARG WORD#)
-                             `(\GETBASE (fetch PUPCONTENTS of (\DTEST ,PUPARG 'ETHERPACKET))
-                                     ,WORD#))
+                         `(\GETBASE (fetch PUPCONTENTS of (\DTEST ,PUPARG 'ETHERPACKET))
+                                 ,WORD#))
 
 (DEFOPTIMIZER PUTPUPWORD (PUPARG WORD# VALUE)
-                             `(\PUTBASE (fetch PUPCONTENTS of (\DTEST ,PUPARG 'ETHERPACKET))
-                                     ,WORD#
-                                     ,VALUE))
+                         `(\PUTBASE (fetch PUPCONTENTS of (\DTEST ,PUPARG 'ETHERPACKET))
+                                 ,WORD#
+                                 ,VALUE))
 
 (DEFOPTIMIZER GETPUPBYTE (PUPARG BYTE#)
-                             `(\GETBASEBYTE (fetch PUPCONTENTS of (\DTEST ,PUPARG
-                                                                                 'ETHERPACKET))
-                                     ,BYTE#))
+                         `(\GETBASEBYTE (fetch PUPCONTENTS of (\DTEST ,PUPARG 'ETHERPACKET))
+                                 ,BYTE#))
 
 (DEFOPTIMIZER PUTPUPBYTE (PUPARG BYTE# VALUE)
-                             `(\PUTBASEBYTE (fetch PUPCONTENTS of (\DTEST ,PUPARG
-                                                                                 'ETHERPACKET))
-                                     ,BYTE#
-                                     ,VALUE))
+                         `(\PUTBASEBYTE (fetch PUPCONTENTS of (\DTEST ,PUPARG 'ETHERPACKET))
+                                 ,BYTE#
+                                 ,VALUE))
 
 
 
@@ -1282,7 +1280,7 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 )
 
                                                              (* ; 
-                                                           "Default this for when IP not loaded")
+                                                             "Default this for when IP not loaded")
 
 (MOVD? 'NILL '\CANONICALIZE.IP.HOSTNAME NIL T)
 
@@ -1301,8 +1299,8 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS BINDPUPS MACRO [X (CONS (LIST 'LAMBDA (CAR X)
-                                                (CONS 'PROGN (CDR X)))
-                                          (in (CAR X) collect (LIST 'ALLOCATE.PUP])
+                                        (CONS 'PROGN (CDR X)))
+                                  (in (CAR X) collect (LIST 'ALLOCATE.PUP])
 )
 
 (PUTPROPS BINDPUPS INFO BINDS)
@@ -1597,12 +1595,12 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (DECLARE%: DONTCOPY 
 (DECLARE%: EVAL@COMPILE
 
-(BLOCKRECORD PUPROUTINGINFO (                            (* ; 
-          "Format of each entry in a pup routing info packet.  We only actually use NET# and #HOPS")
-                                 (NET# BYTE)
-                                 (GATENET# BYTE)
-                                 (GATEHOST# BYTE)
-                                 (%#HOPS BYTE)))
+(BLOCKRECORD PUPROUTINGINFO (                                (* ; 
+            "Format of each entry in a pup routing info packet.  We only actually use NET# and #HOPS")
+                             (NET# BYTE)
+                             (GATENET# BYTE)
+                             (GATEHOST# BYTE)
+                             (%#HOPS BYTE)))
 )
 
 (DECLARE%: EVAL@COMPILE 
@@ -1628,24 +1626,24 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE
 
 (DATATYPE PUPSOCKET ((NIL BITS 4)
-                         (PUPSOCLINK POINTER)                (* ; "So that we can Queue them")
-                         (PSOCKET# FIXP)
-                         (INQUEUE POINTER)
-                         (INQUEUELENGTH WORD)
-                         (PUPSOC#ALLOCATION WORD)
-                         (PUPSOCHANDLE WORD)                 (* ; "Back-fitting for Bcpl")
-                         (PUPSOCPUPADDRESS WORD)             (* ; "Local net/host")
-                         (NIL BITS 4)
-                         (PUPSOCEVENT POINTER)               (* ; 
-                                         "Event that is notified when a pup arrives on this socket")
-                         (NIL BITS 4)
-                         (NIL POINTER))
-                        (BLOCKRECORD PUPSOCKET ((NIL BITS 4)
-                                                (NIL POINTER)
-                                                (PSOCKETHI WORD)
-                                                (PSOCKETLO WORD)))
-                        INQUEUE _ (create SYSQUEUE)
-                        PUPSOC#ALLOCATION _ \MAX.EPKTS.ON.PUPSOCKET)
+                     (PUPSOCLINK POINTER)                    (* ; "So that we can Queue them")
+                     (PSOCKET# FIXP)
+                     (INQUEUE POINTER)
+                     (INQUEUELENGTH WORD)
+                     (PUPSOC#ALLOCATION WORD)
+                     (PUPSOCHANDLE WORD)                     (* ; "Back-fitting for Bcpl")
+                     (PUPSOCPUPADDRESS WORD)                 (* ; "Local net/host")
+                     (NIL BITS 4)
+                     (PUPSOCEVENT POINTER)                   (* ; 
+                                           "Event that is notified when a pup arrives on this socket")
+                     (NIL BITS 4)
+                     (NIL POINTER))
+                    (BLOCKRECORD PUPSOCKET ((NIL BITS 4)
+                                            (NIL POINTER)
+                                            (PSOCKETHI WORD)
+                                            (PSOCKETLO WORD)))
+                    INQUEUE _ (create SYSQUEUE)
+                    PUPSOC#ALLOCATION _ \MAX.EPKTS.ON.PUPSOCKET)
 )
 
 (/DECLAREDATATYPE 'PUPSOCKET '((BITS 4)
@@ -1670,11 +1668,11 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \PUPSOCKET.FROM# MACRO (OPENLAMBDA (SOCHI SOCLO)
-                                           (for SOC in \PUPSOCKETS
-                                              when (AND (EQ (fetch PSOCKETLO of SOC)
-                                                                SOCLO)
-                                                            (EQ (fetch PSOCKETHI of SOC)
-                                                                SOCHI)) do (RETURN SOC))))
+                                   (for SOC in \PUPSOCKETS
+                                      when (AND (EQ (fetch PSOCKETLO of SOC)
+                                                    SOCLO)
+                                                (EQ (fetch PSOCKETHI of SOC)
+                                                    SOCHI)) do (RETURN SOC))))
 )
 
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
@@ -1704,17 +1702,17 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (ADDTOVAR SYSTEMRECLST
 
 (DATATYPE PUPSOCKET ((NIL BITS 4)
-                         (PUPSOCLINK POINTER)
-                         (PSOCKET# FIXP)
-                         (INQUEUE POINTER)
-                         (INQUEUELENGTH WORD)
-                         (PUPSOC#ALLOCATION WORD)
-                         (PUPSOCHANDLE WORD)
-                         (PUPSOCPUPADDRESS WORD)
-                         (NIL BITS 4)
-                         (PUPSOCEVENT POINTER)
-                         (NIL BITS 4)
-                         (NIL POINTER)))
+                     (PUPSOCLINK POINTER)
+                     (PSOCKET# FIXP)
+                     (INQUEUE POINTER)
+                     (INQUEUELENGTH WORD)
+                     (PUPSOC#ALLOCATION WORD)
+                     (PUPSOCHANDLE WORD)
+                     (PUPSOCPUPADDRESS WORD)
+                     (NIL BITS 4)
+                     (PUPSOCEVENT POINTER)
+                     (NIL BITS 4)
+                     (NIL POINTER)))
 )
 (DEFINEQ
 
@@ -1826,21 +1824,21 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (* "FOLLOWING DEFINITIONS EXPORTED")(DECLARE%: EVAL@COMPILE
 
 (BLOCKRECORD PORT ((NETHOST WORD)
-                       (SOCKET FIXP))
-                      (BLOCKRECORD PORT ((NET BYTE)
-                                         (HOST BYTE)
-                                         (SOCKETHI WORD)
-                                         (SOCKETLO WORD))))
+                   (SOCKET FIXP))
+                  (BLOCKRECORD PORT ((NET BYTE)
+                                     (HOST BYTE)
+                                     (SOCKETHI WORD)
+                                     (SOCKETLO WORD))))
 
 (ACCESSFNS ERRORPUP ((ERRORPUPBASE (fetch PUPCONTENTS of DATUM)))
-                        (BLOCKRECORD ERRORPUPBASE ((ERRORPUPCOPY 12Q WORD)
+                    (BLOCKRECORD ERRORPUPBASE ((ERRORPUPCOPY 12Q WORD)
                                                              (* ; "Copy of pup header")
-                                                   (ERRORPUPCODE WORD)
-                                                   (ERRORPUPARG WORD)
+                                               (ERRORPUPCODE WORD)
+                                               (ERRORPUPARG WORD)
                                                              (* ; "Usually zero")
-                                                   (ERRORPUPSTRINGBASE WORD)
+                                               (ERRORPUPSTRINGBASE WORD)
                                                              (* ; "Human readable message")
-                                                   )))
+                                               )))
 )
 (DECLARE%: DOEVAL@COMPILE DONTCOPY
 
@@ -1868,20 +1866,20 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS \GETPUPWORD DMACRO ((PUP WORD#)
-                                      (\GETBASE (fetch PUPCONTENTS of PUP)
-                                             WORD#)))
+                              (\GETBASE (fetch PUPCONTENTS of PUP)
+                                     WORD#)))
 
 (PUTPROPS \PUTPUPWORD DMACRO ((PUP WORD# VALUE)
-                                      (\PUTBASE (fetch PUPCONTENTS of PUP)
-                                             WORD# VALUE)))
+                              (\PUTBASE (fetch PUPCONTENTS of PUP)
+                                     WORD# VALUE)))
 
 (PUTPROPS \GETPUPBYTE DMACRO ((PUP BYTE#)
-                                      (\GETBASEBYTE (fetch PUPCONTENTS of PUP)
-                                             BYTE#)))
+                              (\GETBASEBYTE (fetch PUPCONTENTS of PUP)
+                                     BYTE#)))
 
 (PUTPROPS \PUTPUPBYTE DMACRO ((PUP BYTE# VALUE)
-                                      (\PUTBASEBYTE (fetch PUPCONTENTS of PUP)
-                                             BYTE# VALUE)))
+                              (\PUTBASEBYTE (fetch PUPCONTENTS of PUP)
+                                     BYTE# VALUE)))
 )
 
 (RPAQQ RAWPUPTYPES
@@ -2033,13 +2031,13 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (RPAQ? PUPTYPES RAWPUPTYPES)
 
 (RPAQQ WELLKNOWNPUPSOCKETS ((\PUPSOCKET.TELNET 1)
-                                (\PUPSOCKET.ROUTING 2)
-                                (\PUPSOCKET.FTP 3)
-                                (\PUPSOCKET.MISCSERVICES 4)
-                                (\PUPSOCKET.ECHO 5)
-                                (\PUPSOCKET.EFTP 20Q)
-                                (\PUPSOCKET.PRINTERSTATUS 21Q)
-                                (\PUPSOCKET.LEAF 43Q)))
+                            (\PUPSOCKET.ROUTING 2)
+                            (\PUPSOCKET.FTP 3)
+                            (\PUPSOCKET.MISCSERVICES 4)
+                            (\PUPSOCKET.ECHO 5)
+                            (\PUPSOCKET.EFTP 20Q)
+                            (\PUPSOCKET.PRINTERSTATUS 21Q)
+                            (\PUPSOCKET.LEAF 43Q)))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQQ \PUPSOCKET.TELNET 1)
@@ -2074,9 +2072,9 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 
 
 (RPAQQ PUPCONSTANTS ((\PUPHEADERLEN 24Q)
-                         (\NetMask 177400Q)
-                         (\HILOCALSOCKET 1)
-                         (\PORTIDLEN 3)))
+                     (\NetMask 177400Q)
+                     (\HILOCALSOCKET 1)
+                     (\PORTIDLEN 3)))
 (DECLARE%: EVAL@COMPILE 
 
 (RPAQQ \PUPHEADERLEN 24Q)
@@ -2097,28 +2095,28 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (DECLARE%: EVAL@COMPILE 
 
 (PUTPROPS PUPDEBUGGING MACRO [(X . Y)
-                                      (COND
-                                         (PUPTRACEFLG (printout PUPTRACEFILE X . Y])
+                              (COND
+                                 (PUPTRACEFLG (printout PUPTRACEFILE X . Y])
 )
 
 
 (ADDTOVAR PUPPRINTMACROS (210Q CHARS)
-                             (214Q CHARS)
-                             (211Q CHARS)
-                             (213Q CHARS)
-                             (201Q WORDS 2 CHARS 24Q |...|)
-                             (30Q CHARS))
+                         (214Q CHARS)
+                         (211Q CHARS)
+                         (213Q CHARS)
+                         (201Q WORDS 2 CHARS 24Q |...|)
+                         (30Q CHARS))
 
 (DECLARE%: EVAL@COMPILE
 
 (BLOCKRECORD TIMEPUPCONTENTS ((TIMEPUPVALUEHI WORD)
-                                  (TIMEPUPVALUELO WORD)
-                                  (TIMEPUPEASTP FLAG)
-                                  (TIMEPUPHOURS BITS 7)
-                                  (TIMEPUPMINUTES BITS 10Q)
-                                  (TIMEPUPBEGINDST WORD)
-                                  (TIMEPUPENDDST WORD))      (* ; "format of alto time response")
-                                 )
+                              (TIMEPUPVALUELO WORD)
+                              (TIMEPUPEASTP FLAG)
+                              (TIMEPUPHOURS BITS 7)
+                              (TIMEPUPMINUTES BITS 10Q)
+                              (TIMEPUPBEGINDST WORD)
+                              (TIMEPUPENDDST WORD))          (* ; "format of alto time response")
+                             )
 )
 )
 
@@ -2447,10 +2445,10 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (ADDTOVAR PUPIGNORETYPES )
 
 (ADDTOVAR PUPPRINTMACROS (4 . PRINTERRORPUP)
-                             (220Q CHARS)
-                             (221Q REPEAT BYTES -2 WORDS -4)
-                             (223Q BYTES -2 WORDS)
-                             (224Q CHARS))
+                         (220Q CHARS)
+                         (221Q REPEAT BYTES -2 WORDS -4)
+                         (223Q BYTES -2 WORDS)
+                         (224Q CHARS))
 (DECLARE%: DONTEVAL@LOAD 
 
 (\PUPINIT)
@@ -2469,32 +2467,30 @@ Copyright (c) 3676-3711, 3745 by Venue & Xerox Corporation.
 (PUTPROPS PUP MAKEFILE-ENVIRONMENT (:READTABLE "INTERLISP" :PACKAGE "INTERLISP" :BASE 10Q))
 
 (PUTPROPS PUP FILETYPE CL:COMPILE-FILE)
-(PUTPROPS PUP COPYRIGHT ("Venue & Xerox Corporation" 3676Q 3677Q 3700Q 3701Q 3702Q 3703Q 3704Q 3705Q 
-3706Q 3707Q 3710Q 3711Q 3745Q))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (25631Q 61606Q (\STARTPUP 25643Q . 26515Q) (ASSURE.PUP.READY 26517Q . 34612Q) (
-\FIND.LOCALPUPHOSTNUMBER 34614Q . 37012Q) (\PROMPT.FOR.PUP.NUMBER 37014Q . 41034Q) (\HANDLE.RAW.PUP 
-41036Q . 57136Q) (\FORWARD.PUP 57140Q . 60060Q) (\SETPUPCHECKSUM 60062Q . 61604Q)) (66376Q 73470Q (
-\PUPERROR 66410Q . 73466Q)) (73527Q 112663Q (SETUPPUP 73541Q . 76727Q) (SWAPPUPPORTS 76731Q . 77546Q) 
-(GETPUP 77550Q . 102462Q) (SENDPUP 102464Q . 106306Q) (EXCHANGEPUPS 106310Q . 110346Q) (DISCARDPUPS 
-110350Q . 111154Q) (GETPUPWORD 111156Q . 111475Q) (\PUPINIT 111477Q . 112661Q)) (112664Q 154244Q (
-ETHERHOSTNAME 112676Q . 122024Q) (ETHERHOSTNUMBER 122026Q . 122441Q) (ETHERPORT 122443Q . 126162Q) (
-BESTPUPADDRESS 126164Q . 136224Q) (NETDAYTIME0 136226Q . 136557Q) (\PUP.SETTIME 136561Q . 137206Q) (
-\SETNEWTIME0 137210Q . 140270Q) (\NET.SETTIME 140272Q . 141361Q) (NETDATE 141363Q . 141720Q) (
-\LOOKUPPORT 141722Q . 147561Q) (\PARSE.PORTCONSTANT 147563Q . 152673Q) (\FIXLOCALNET 152675Q . 154242Q
-)) (154245Q 155602Q (PORTSTRING 154257Q . 155246Q) (OCTALSTRING 155250Q . 155600Q)) (156174Q 165305Q (
-CLEARPUP 156206Q . 160721Q) (PUTPUPWORD 160723Q . 161250Q) (GETPUPBYTE 161252Q . 161575Q) (PUTPUPBYTE 
-161577Q . 162130Q) (GETPUPSTRING 162132Q . 163563Q) (GETPUPSTREAM 163565Q . 164514Q) (PUTPUPSTRING 
-164516Q . 165303Q)) (167410Q 175227Q (READPLIST 167422Q . 175225Q)) (175410Q 200610Q (
-\CANONICAL.HOSTNAME 175422Q . 176467Q) (\CANONICALIZE.PUP.HOSTNAME 176471Q . 200606Q)) (203163Q 
-236370Q (\PUPGATELISTENER 203175Q . 207026Q) (\HANDLE.PUP.ROUTING.INFO 207030Q . 221367Q) (\ROUTE.PUP 
-221371Q . 225224Q) (\LOCATE.PUPNET 225226Q . 231763Q) (SORT.PUPHOSTS.BY.DISTANCE 231765Q . 234241Q) (
-\PUPNET.CLOSERP 234243Q . 235424Q) (PUPNET.DISTANCE 235426Q . 236366Q)) (250017Q 257771Q (
-OPENPUPSOCKET 250031Q . 254512Q) (CLOSEPUPSOCKET 254514Q . 256173Q) (PUPSOCKETNUMBER 256175Q . 256426Q
-) (PUPSOCKETFROMNUMBER 256430Q . 257067Q) (PUPSOCKETEVENT 257071Q . 257350Q) (\FLUSHPUPSOCQUEUE 
-257352Q . 257767Q)) (257772Q 260537Q (\GETMISCSOCKET 260004Q . 260535Q)) (300551Q 313341Q (
-PUP.ECHOSERVER 300563Q . 303370Q) (PUP.ECHOUSER 303372Q . 313337Q)) (313372Q 322523Q (\PEEKPUP 313404Q
- . 320535Q) (\MAYBEPEEKPUP 320537Q . 322521Q)) (323124Q 334361Q (PRINTPUP 323136Q . 327306Q) (
-PRINTPUPROUTE 327310Q . 331255Q) (PRINTPUPDATA 331257Q . 331727Q) (PRINTERRORPUP 331731Q . 332431Q) (
-PUPTRACE 332433Q . 332744Q) (PRINTCONSTANT 332746Q . 334357Q)))))
+  (FILEMAP (NIL (25117Q 61405Q (\STARTPUP 25131Q . 26003Q) (ASSURE.PUP.READY 26005Q . 34100Q) (
+\FIND.LOCALPUPHOSTNUMBER 34102Q . 36611Q) (\PROMPT.FOR.PUP.NUMBER 36613Q . 40633Q) (\HANDLE.RAW.PUP 
+40635Q . 56735Q) (\FORWARD.PUP 56737Q . 57657Q) (\SETPUPCHECKSUM 57661Q . 61403Q)) (66151Q 73243Q (
+\PUPERROR 66163Q . 73241Q)) (73302Q 112436Q (SETUPPUP 73314Q . 76502Q) (SWAPPUPPORTS 76504Q . 77321Q) 
+(GETPUP 77323Q . 102235Q) (SENDPUP 102237Q . 106061Q) (EXCHANGEPUPS 106063Q . 110121Q) (DISCARDPUPS 
+110123Q . 110727Q) (GETPUPWORD 110731Q . 111250Q) (\PUPINIT 111252Q . 112434Q)) (112437Q 154017Q (
+ETHERHOSTNAME 112451Q . 121577Q) (ETHERHOSTNUMBER 121601Q . 122214Q) (ETHERPORT 122216Q . 125735Q) (
+BESTPUPADDRESS 125737Q . 135777Q) (NETDAYTIME0 136001Q . 136332Q) (\PUP.SETTIME 136334Q . 136761Q) (
+\SETNEWTIME0 136763Q . 140043Q) (\NET.SETTIME 140045Q . 141134Q) (NETDATE 141136Q . 141473Q) (
+\LOOKUPPORT 141475Q . 147334Q) (\PARSE.PORTCONSTANT 147336Q . 152446Q) (\FIXLOCALNET 152450Q . 154015Q
+)) (154020Q 155355Q (PORTSTRING 154032Q . 155021Q) (OCTALSTRING 155023Q . 155353Q)) (155747Q 165060Q (
+CLEARPUP 155761Q . 160474Q) (PUTPUPWORD 160476Q . 161023Q) (GETPUPBYTE 161025Q . 161350Q) (PUTPUPBYTE 
+161352Q . 161703Q) (GETPUPSTRING 161705Q . 163336Q) (GETPUPSTREAM 163340Q . 164267Q) (PUTPUPSTRING 
+164271Q . 165056Q)) (166651Q 174470Q (READPLIST 166663Q . 174466Q)) (174651Q 200051Q (
+\CANONICAL.HOSTNAME 174663Q . 175730Q) (\CANONICALIZE.PUP.HOSTNAME 175732Q . 200047Q)) (202406Q 
+235613Q (\PUPGATELISTENER 202420Q . 206251Q) (\HANDLE.PUP.ROUTING.INFO 206253Q . 220612Q) (\ROUTE.PUP 
+220614Q . 224447Q) (\LOCATE.PUPNET 224451Q . 231206Q) (SORT.PUPHOSTS.BY.DISTANCE 231210Q . 233464Q) (
+\PUPNET.CLOSERP 233466Q . 234647Q) (PUPNET.DISTANCE 234651Q . 235611Q)) (247006Q 256760Q (
+OPENPUPSOCKET 247020Q . 253501Q) (CLOSEPUPSOCKET 253503Q . 255162Q) (PUPSOCKETNUMBER 255164Q . 255415Q
+) (PUPSOCKETFROMNUMBER 255417Q . 256056Q) (PUPSOCKETEVENT 256060Q . 256337Q) (\FLUSHPUPSOCQUEUE 
+256341Q . 256756Q)) (256761Q 257526Q (\GETMISCSOCKET 256773Q . 257524Q)) (277224Q 312014Q (
+PUP.ECHOSERVER 277236Q . 302043Q) (PUP.ECHOUSER 302045Q . 312012Q)) (312045Q 321176Q (\PEEKPUP 312057Q
+ . 317210Q) (\MAYBEPEEKPUP 317212Q . 321174Q)) (321577Q 333034Q (PRINTPUP 321611Q . 325761Q) (
+PRINTPUPROUTE 325763Q . 327730Q) (PRINTPUPDATA 327732Q . 330402Q) (PRINTERRORPUP 330404Q . 331104Q) (
+PUPTRACE 331106Q . 331417Q) (PRINTCONSTANT 331421Q . 333032Q)))))
 STOP
diff --git a/sources/PUP.LCOM b/sources/PUP.LCOM
index 82a81790..4bb0cc79 100644
Binary files a/sources/PUP.LCOM and b/sources/PUP.LCOM differ
