diff --git a/internal/MEDLEY-UTILS b/internal/MEDLEY-UTILS
index 5efe755e..0e8988d7 100644
--- a/internal/MEDLEY-UTILS
+++ b/internal/MEDLEY-UTILS
@@ -1,10 +1,10 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-(FILECREATED "16-Jul-2022 22:08:34" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;2| 15771  
+(FILECREATED "17-Jul-2022 12:44:56" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;9| 15959  
 
-      :CHANGES-TO (FNS MAKE-FULLER-DB)
+      :CHANGES-TO (FNS HCFILES)
 
-      :PREVIOUS-DATE "25-Jun-2022 17:17:53" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;1|)
+      :PREVIOUS-DATE "16-Jul-2022 22:08:34" |{DSK}<home>larry>medley>internal>MEDLEY-UTILS.;8|)
 
 
 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -203,7 +203,8 @@
 (DEFINEQ
 
 (HCFILES
-  (LAMBDA (TFILE DEST REDOFLG TOPDIRLEN)                  (* \; "Edited 21-Jun-2022 22:59 by larry")
+  (LAMBDA (TFILE DEST REDOFLG TOPDIRLEN)                  (* \; "Edited 17-Jul-2022 12:44 by larry")
+                                                          (* \; "Edited 21-Jun-2022 22:59 by larry")
                                                           (* \; "Edited 31-May-2022 09:31 by larry")
                                                           (* \; "Edited 20-Feb-2022 12:16 by larry")
                                                           (* \; "Edited 21-Aug-2021 20:56 by larry")
@@ -224,7 +225,9 @@
 
         (* |;;| "first deal with files in this directory")
 
-        (|for| X |in| (DIRECTORY (CONCAT TFILE "*.TED*;")) |do| (HCFILES X DEST REDOFLG TOPDIRLEN))
+        (FOR EXT IN '("TED*" "SKETCH" "T*XT")
+           DO (|for| X |in| (DIRECTORY (CONCAT TFILE "*." EXT ";*"))
+                 |do| (HCFILES X DEST REDOFLG TOPDIRLEN)))
 
         (* |;;| " then deal with subdirs ")
 
@@ -289,7 +292,7 @@
 
 (DEFCOMMAND "pick" (FIRST . REST) (PICK FIRST REST))
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (734 8709 (GATHER-INFO 744 . 6154) (MAKE-FULLER-DB 6156 . 6846) (MEDLEY-FIX-LINKS 6848
- . 7245) (MEDLEY-FIX-DATES 7247 . 7489) (PICK 7491 . 8707)) (9748 11541 (MAKE-EXPORTS-ALL 9758 . 10717
-) (MAKE-WHEREIS-HASH 10719 . 11539)) (11576 15641 (HCFILES 11586 . 15326) (BADFILE 15328 . 15639)))))
+  (FILEMAP (NIL (727 8702 (GATHER-INFO 737 . 6147) (MAKE-FULLER-DB 6149 . 6839) (MEDLEY-FIX-LINKS 6841
+ . 7238) (MEDLEY-FIX-DATES 7240 . 7482) (PICK 7484 . 8700)) (9741 11534 (MAKE-EXPORTS-ALL 9751 . 10710
+) (MAKE-WHEREIS-HASH 10712 . 11532)) (11569 15829 (HCFILES 11579 . 15514) (BADFILE 15516 . 15827)))))
 STOP
diff --git a/internal/MEDLEY-UTILS.LCOM b/internal/MEDLEY-UTILS.LCOM
index a9a140aa..f1fdba30 100644
Binary files a/internal/MEDLEY-UTILS.LCOM and b/internal/MEDLEY-UTILS.LCOM differ
diff --git a/library/SKETCHOBJ b/library/SKETCHOBJ
index be3507c6..777a12d4 100644
--- a/library/SKETCHOBJ
+++ b/library/SKETCHOBJ
@@ -1,13 +1,14 @@
-(DEFINE-FILE-INFO READTABLE "INTERLISP" PACKAGE "INTERLISP")
-(FILECREATED "20-Jan-93 14:48:59" {DSK}<python>lde>lispcore>library>SKETCHOBJ.;2 55463  
+(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-      changes to%:  (RECORDS SKETCHIMAGEOBJ SKETCHDOCUMENTINFO LOCALSKIMAGEOBJ SKIMAGEOBJ ANNO)
+(FILECREATED "15-Jul-2022 14:33:25" {DSK}<home>larry>winhome>DROPBOX>TEDIT-VERSIONS>SKETCHOBJ.;1 55347  
 
-      previous date%: "12-Jun-90 15:07:54" {DSK}<python>lde>lispcore>library>SKETCHOBJ.;1)
+      :CHANGES-TO (FNS SKETCH.DISPLAYFN)
+
+      :PREVIOUS-DATE "20-Jan-93 14:48:59" {DSK}<home>larry>medley>library>SKETCHOBJ.;1)
 
 
 (* ; "
-Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporation.  All rights reserved.
+Copyright (c) 1984-1988, 1990, 1993 by Venue & Xerox Corporation.
 ")
 
 (PRETTYCOMPRINT SKETCHOBJCOMS)
@@ -105,9 +106,10 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporat
            SKETCHIMAGEFNS])
 
 (SKETCH.DISPLAYFN
-  [LAMBDA (SKETCHIMAGEOBJ STREAM)                            (* ; "Edited 27-Feb-87 18:15 by rrb")
-          
-          (* * display function for a sketch image object)
+  [LAMBDA (SKETCHIMAGEOBJ STREAM)                          (* ; "Edited 15-Jul-2022 14:30 by larry")
+                                                             (* ; "Edited 27-Feb-87 18:15 by rrb")
+
+         (* * display function for a sketch image object)
 
     (PROG ((SKIO (IMAGEOBJPROP SKETCHIMAGEOBJ 'OBJECTDATUM))
            REGION TYPE)
@@ -119,9 +121,9 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporat
               (BITBLT [COND
                          ((fetch (SKETCHIMAGEOBJ SKIO.LOCALSPECS) of SKIO))
                          (T 
-          
-          (* SKIO.LOCALSPECS is used to cache the local bitmap of the sketch as it is 
-          being display now.)
+
+         (* SKIO.LOCALSPECS is used to cache the local bitmap of the sketch as it is being 
+         display now.)
 
                             (replace (SKETCHIMAGEOBJ SKIO.LOCALSPECS) of SKIO
                                with (SKETCH.BITMAP.IMAGE (fetch (SKETCHIMAGEOBJ SKIO.SKETCH)
@@ -133,9 +135,9 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporat
              (T (PROG ((SKSCALE (fetch (SKETCHIMAGEOBJ SKIO.SCALE) of SKIO))
                        (STRMSCALE (DSPSCALE NIL STREAM))
                        SKTOSTRMSCALE SKXOFFSET SKYOFFSET)
-          
-          (* the TRANSLATE.SKETCH is to move the sketch to the right place on the page.
-          When all streams support tranlation, this should be taken out.)
+
+         (* the TRANSLATE.SKETCH is to move the sketch to the right place on the page.
+         When all streams support tranlation, this should be taken out.)
 
                       (SETQ SKTOSTRMSCALE (QUOTIENT SKSCALE STRMSCALE))
                       (SETQ SKXOFFSET (DIFFERENCE (TIMES (DSPXPOSITION NIL STREAM)
@@ -144,23 +146,22 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporat
                       (SETQ SKYOFFSET (DIFFERENCE (TIMES (DSPYPOSITION NIL STREAM)
                                                          SKTOSTRMSCALE)
                                              (fetch (REGION BOTTOM) of REGION)))
-          
-          (* save and restore the font as Tedit assumes that it is preserved over the 
-          call.)
+
+         (* save and restore the font as Tedit assumes that it is preserved over the call.)
 
                       (RETURN (DSPFONT (PROG1 (DSPFONT NIL STREAM)
-                                              (DRAW.LOCAL.SKETCH
-                                               (MAKE.LOCAL.SKETCH (TRANSLATE.SKETCH
-                                                                   (COPY (fetch (SKETCHIMAGEOBJ
-                                                                                 SKIO.SKETCH)
-                                                                            of SKIO))
-                                                                   (IMINUS SKXOFFSET)
-                                                                   (IMINUS SKYOFFSET))
-                                                      (SETQ REGION (TRANSLATE.REGION REGION SKXOFFSET 
-                                                                          SKYOFFSET))
-                                                      SKTOSTRMSCALE STREAM)
-                                               STREAM
-                                               (SK.SCALE.REGION REGION SKTOSTRMSCALE)))
+                                           (DRAW.LOCAL.SKETCH
+                                            (MAKE.LOCAL.SKETCH (TRANSLATE.SKETCH
+                                                                (COPY (fetch (SKETCHIMAGEOBJ 
+                                                                                    SKIO.SKETCH)
+                                                                         of SKIO))
+                                                                (IMINUS SKXOFFSET)
+                                                                (IMINUS SKYOFFSET))
+                                                   (SETQ REGION (TRANSLATE.REGION REGION SKXOFFSET 
+                                                                       SKYOFFSET))
+                                                   SKTOSTRMSCALE STREAM T)
+                                            STREAM
+                                            (SK.SCALE.REGION REGION SKTOSTRMSCALE)))
                                      STREAM])
 
 (SKETCH.BITMAP.IMAGE
@@ -935,14 +936,12 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporat
 (DECLARE%: EVAL@COMPILE
 
 (RECORD LOCALSKIMAGEOBJ ((SKIMOBJLOCALPOS)
-                             LOCALHOTREGION SKIMOBJLOCALSCALE SKIMOBJLOCALREGION 
-                             SKIMOBJLOCALOFFSETPOS))
+                         LOCALHOTREGION SKIMOBJLOCALSCALE SKIMOBJLOCALREGION SKIMOBJLOCALOFFSETPOS))
 
 (TYPERECORD SKIMAGEOBJ (SKIMAGEOBJ SKIMOBJ.GLOBALREGION SKIMOBJ.ORIGSCALE SKIMOBJ.OFFSETPOS))
 
-(DATATYPE ANNO (ANNO\SUBSTANCE ANNO\ID ANNO\WINDOW ANNO\DATE ANNO\PARENTS ANNO\NEXTSUBID 
-                          ANNO\TYPE ANNO\SUMMARIZED\IN ANNO\UPDATE\DATE ANNO\CREATE\BY ANNO\UPDATE\BY
-                          ANNO\FONT))
+(DATATYPE ANNO (ANNO\SUBSTANCE ANNO\ID ANNO\WINDOW ANNO\DATE ANNO\PARENTS ANNO\NEXTSUBID ANNO\TYPE 
+                      ANNO\SUMMARIZED\IN ANNO\UPDATE\DATE ANNO\CREATE\BY ANNO\UPDATE\BY ANNO\FONT))
 )
 
 (/DECLAREDATATYPE 'ANNO '(POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER 
@@ -964,21 +963,21 @@ Copyright (c) 1984, 1985, 1986, 1987, 1988, 1990, 1993 by Venue & Xerox Corporat
 (CREATE.SKIMAGEOBJ.TYPE)
 (PUTPROPS SKETCHOBJ COPYRIGHT ("Venue & Xerox Corporation" 1984 1985 1986 1987 1988 1990 1993))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2157 31523 (MAKE.IMAGE.OBJECT.OF.SKETCH 2167 . 3331) (SK.ELEMENT.FROM.IMAGEOBJ 3333 . 
-3632) (SKETCHIMAGEOBJ.FROM.VIEWER 3634 . 4046) (SKETCH.IMAGEOBJ 4048 . 4884) (SKETCH.DISPLAYFN 4886 . 
-8497) (SKETCH.BITMAP.IMAGE 8499 . 10170) (SKIO.IMAGEBOXFN 10172 . 12177) (SKIO.GETFN.2 12179 . 13648) 
-(SKIO.UPDATE.FROM.OLD.FORM 13650 . 14334) (SKIO.GETFN 14336 . 14854) (SKIO.PUTFN 14856 . 15853) (
-SKIO.COPYFN 15855 . 16557) (SKIO.BUTTONEVENTINFN 16559 . 21616) (TRANSLATE.REGION 21618 . 22147) (
-UPDATE.IMAGE.IN.DOCUMENT 22149 . 24668) (SK.COPY.IMAGEOBJ 24670 . 26341) (COPY.IMAGE.OBJECT 26343 . 
-26880) (\CREATE.SKETCH.IMAGEFNS 26882 . 28019) (\SKIO.IN.TOO.SMALL.TEDITP 28021 . 28713) (
-SKETCH.VIEWER.GRID 28715 . 30012) (SKETCH.VIEWER.SCALE 30014 . 31521)) (31886 39876 (
-SKETCH.IMAGE.OBJECT.ELEMENT 31896 . 32309) (SKETCH.IMAGEOBJ.OF.ELEMENT 32311 . 32637) (
-SKETCH.SCALE.OF.ELEMENT 32639 . 33067) (SKETCH.POSITION.OF.ELEMENT 33069 . 33716) (
-CREATE.SKIMAGEOBJ.TYPE 33718 . 34643) (IMAGEBOXSIZE 34645 . 34996) (SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE
- 34998 . 37125) (SKETCH.CREATE.IMAGE.OBJECT 37127 . 37849) (SKETCH.CREATE.IMAGE.OBJECT1 37851 . 39874)
-) (39877 54282 (SK.IMAGEOBJ.DRAWFN 39887 . 41559) (SK.IMAGEOBJ.REGIONFN 41561 . 41986) (
-SK.IMAGEOBJ.GLOBALREGIONFN 41988 . 42389) (SK.IMAGEOBJ.TRANSLATEFN 42391 . 44674) (
-SK.IMAGEOBJ.EXPANDFN 44676 . 46862) (SK.IMAGEOBJ.INSIDEFN 46864 . 47398) (SK.IMAGEOBJ.MOVEFN 47400 . 
-49631) (SK.IMAGEOBJ.CHANGEFN 49633 . 52708) (SK.IMAGEOBJ.READCHANGEFN 52710 . 52939) (
-SK.IMAGEOBJ.TRANSFORMFN 52941 . 54280)))))
+  (FILEMAP (NIL (2084 31471 (MAKE.IMAGE.OBJECT.OF.SKETCH 2094 . 3258) (SK.ELEMENT.FROM.IMAGEOBJ 3260 . 
+3559) (SKETCHIMAGEOBJ.FROM.VIEWER 3561 . 3973) (SKETCH.IMAGEOBJ 3975 . 4811) (SKETCH.DISPLAYFN 4813 . 
+8445) (SKETCH.BITMAP.IMAGE 8447 . 10118) (SKIO.IMAGEBOXFN 10120 . 12125) (SKIO.GETFN.2 12127 . 13596) 
+(SKIO.UPDATE.FROM.OLD.FORM 13598 . 14282) (SKIO.GETFN 14284 . 14802) (SKIO.PUTFN 14804 . 15801) (
+SKIO.COPYFN 15803 . 16505) (SKIO.BUTTONEVENTINFN 16507 . 21564) (TRANSLATE.REGION 21566 . 22095) (
+UPDATE.IMAGE.IN.DOCUMENT 22097 . 24616) (SK.COPY.IMAGEOBJ 24618 . 26289) (COPY.IMAGE.OBJECT 26291 . 
+26828) (\CREATE.SKETCH.IMAGEFNS 26830 . 27967) (\SKIO.IN.TOO.SMALL.TEDITP 27969 . 28661) (
+SKETCH.VIEWER.GRID 28663 . 29960) (SKETCH.VIEWER.SCALE 29962 . 31469)) (31834 39824 (
+SKETCH.IMAGE.OBJECT.ELEMENT 31844 . 32257) (SKETCH.IMAGEOBJ.OF.ELEMENT 32259 . 32585) (
+SKETCH.SCALE.OF.ELEMENT 32587 . 33015) (SKETCH.POSITION.OF.ELEMENT 33017 . 33664) (
+CREATE.SKIMAGEOBJ.TYPE 33666 . 34591) (IMAGEBOXSIZE 34593 . 34944) (SK.UPDATE.IMAGEOBJECT.AFTER.CHANGE
+ 34946 . 37073) (SKETCH.CREATE.IMAGE.OBJECT 37075 . 37797) (SKETCH.CREATE.IMAGE.OBJECT1 37799 . 39822)
+) (39825 54230 (SK.IMAGEOBJ.DRAWFN 39835 . 41507) (SK.IMAGEOBJ.REGIONFN 41509 . 41934) (
+SK.IMAGEOBJ.GLOBALREGIONFN 41936 . 42337) (SK.IMAGEOBJ.TRANSLATEFN 42339 . 44622) (
+SK.IMAGEOBJ.EXPANDFN 44624 . 46810) (SK.IMAGEOBJ.INSIDEFN 46812 . 47346) (SK.IMAGEOBJ.MOVEFN 47348 . 
+49579) (SK.IMAGEOBJ.CHANGEFN 49581 . 52656) (SK.IMAGEOBJ.READCHANGEFN 52658 . 52887) (
+SK.IMAGEOBJ.TRANSFORMFN 52889 . 54228)))))
 STOP
diff --git a/library/SKETCHOBJ.LCOM b/library/SKETCHOBJ.LCOM
index 8ca8b622..6ffeb736 100644
Binary files a/library/SKETCHOBJ.LCOM and b/library/SKETCHOBJ.LCOM differ
