diff --git a/internal/MEDLEY-UTILS b/internal/MEDLEY-UTILS
index 14fce7b9..f817801d 100644
--- a/internal/MEDLEY-UTILS
+++ b/internal/MEDLEY-UTILS
@@ -1,23 +1,25 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "16-May-2025 15:37:36" {DSK}<home>frank>il>qmedley>internal>MEDLEY-UTILS.;8 31221  
+(FILECREATED "24-Jan-2026 16:01:54" {DSK}<Users>larry>il>medley>internal>MEDLEY-UTILS.;3 26389  
 
-      :CHANGES-TO (FNS MAKE-INDEX-HTMLS)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "16-May-2025 13:51:08" {DSK}<home>frank>il>qmedley>internal>MEDLEY-UTILS.;7)
+      :CHANGES-TO (VARS MEDLEY-UTILSCOMS)
+                  (FNS MAKE-INDEX-HTMLS)
+
+      :PREVIOUS-DATE "16-May-2025 15:37:36" {DSK}<Users>larry>il>MEDLEY>INTERNAL>MEDLEY-UTILS.;1)
 
 
 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
 
 (RPAQQ MEDLEY-UTILSCOMS
-       [(FNS GATHER-INFO MAKE-FULLER-DB MAKE-INDEX-HTMLS MEDLEY-FIX-LINKS MEDLEY-FIX-DATES)
+       [(FNS GATHER-INFO MAKE-FULLER-DB MEDLEY-FIX-LINKS MEDLEY-FIX-DATES)
         (VARS MEDLEY-FIX-DIRS OKSOURCES OKLIBRARY OKLISPUSERS OKINTERNAL)
         (FNS MAKE-EXPORTS-ALL MAKE-WHEREIS-HASH MAKE-WHEREIS-LOOPS)
         (FNS HCFILES MAKE-INDEX-HTMLS)
         (PROP FILETYPE MEDLEY-UTILS)
         (ADVISE TEDIT.PROMPTPRINT)
         (FNS RECOMPILE-ONE RECMPL COMPILE-SETUP REMAKEFILES)
-        (P (READVISE TEDIT.PROMPTPRINT))
         (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA)
                                                                              (NLAML)
                                                                              (LAMA])
@@ -125,91 +127,6 @@
     (MAKESYS (OR SYSOUTFILE "fuller.sysout")
            "Welcome to Fuller sysout"])
 
-(MAKE-INDEX-HTMLS
-  [LAMBDA (BASE TOP LEVEL ROOT.NAME)                         (* ; "Edited 29-Apr-2024 14:18 by lmm")
-                                                             (* ; "Edited 26-Apr-2024 16:15 by lmm")
-                                                             (* ; "Edited 20-Apr-2024 12:34 by lmm")
-                                                             (* ; "Edited 13-Apr-2024 21:18 by lmm")
-                                                            (* ; " Edited 16-May-2025 13:17 by fgh")
-    [OR BASE (SETQ BASE (TRUEFILENAME (MEDLEYDIR]
-    (OR (DIRECTORYNAMEP BASE)
-        (ERROR BASE "not a directory name"))
-    (OR (AND (NUMBERP LEVEL)
-             (IGREATERP LEVEL 0))
-        (SETQ LEVEL 1))
-    (OR ROOT.NAME (SETQ ROOT.NAME 'MEDLEY))
-    (RESETLST
-        (if (EQ LEVEL 1)
-            then (RESETSAVE (PSEUDOHOSTS T))
-                 (PSEUDOHOST ROOT.NAME BASE))
-        (SETQ BASE (PSEUDOFILENAME BASE))
-        [LET*
-         ((SUBDIRS NIL)
-          (DEST (PACKFILENAME 'NAME "index" 'EXTENSION "html" 'VERSION NIL 'BODY BASE))
-          (PSEUDOHOST (EQ (NTHCHAR BASE (CL:1- 0))
-                          '}))
-          SLASHED SHORTNAME)
-         (CL:WITH-OPEN-FILE
-          (S DEST :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION :IF-DOES-NOT-EXIST :CREATE)
-          (CL:FORMAT S "<HTML>~%%<HEAD>~%%")
-          (CL:FORMAT S "<TITLE>Index page for ~a</TITLE>~%%" (SETQ SLASHED (SLASHIT BASE)))
-          (CL:FORMAT S "<SCRIPT>~%%")
-          (CL:FORMAT S "    function up_onclick(){~%%")
-          (CL:FORMAT S "        var newLoc = location.href.replace(/\/index.html$/i, %"%");~%%")
-          (CL:FORMAT S "        location = newLoc.replace(/\/[^\/]+\/?$/, %"%");~%%")
-          (CL:FORMAT S "     }~%%")
-          (CL:FORMAT S "</SCRIPT>~%%")
-          (CL:FORMAT S "</HEAD>~%%")
-          (CL:FORMAT S "<BODY><H1>Index page for ~a</H1>~%%" SLASHED)
-          (CL:UNLESS (EQ LEVEL 1)
-                 (CL:FORMAT S 
-      "<DIV>~%%<BUTTON TYPE=%"BUTTON%" ONCLICK=%"up_onclick()%">Go up one level</BUTTON>~%%</DIV>~%%"
-                        ))
-          (CL:FORMAT S "<P>This is an index of the files just to link them in.~%%<UL>~%%")
-          (for FULLNAME in (DIRECTORY (CONCAT BASE "*.*;"))
-             do (if (EQ (NTHCHAR FULLNAME -1)
-                        '>)
-                    then 
-                         (* ;; "A directory")
-
-                         (if (NOT (DIRECTORYNAMEP FULLNAME))
-                             then (HELP (CONCAT "NOT DIRNAME " FULLNAME)))
-                         (SETQ SHORTNAME (MKATOM (SUBSTRING FULLNAME
-                                                        (+ (NCHARS BASE)
-                                                           (if PSEUDOHOST
-                                                               then 2
-                                                             else 1))
-                                                        -2)))
-                         (CL:UNLESS (OR (MEMB SHORTNAME '(.git))
-                                        (MEMB SHORTNAME '(.GIT))
-                                        [AND (STRPOS ".git" (L-CASE FULLNAME))
-                                             (NOT (STRPOS ".github" (L-CASE FULLNAME]
-                                        (INFILEP (CONCAT FULLNAME ".skip")))
-
-                             (* ;; ".skip in the directory itself -- don't index any of it")
-
-                             (SETQ SUBDIRS (NCONC1 SUBDIRS FULLNAME))
-                             (CL:FORMAT S "<LI><A HREF=%"~a/%">~a/</A></LI>~%%" SHORTNAME SHORTNAME))
-                  elseif (MEMB [SETQ SHORTNAME (MKATOM (SUBSTRING FULLNAME (ADD1 (NCHARS BASE))
-                                                              (SUB1 (OR (STRPOS ".;" FULLNAME)
-                                                                        (STRPOS ";" FULLNAME)
-                                                                        (HELP (CONCAT 
-                                                                            "No ; in non-directory  "
-                                                                                     FULLNAME]
-                               '(index.html .skip))
-                    then 
-                         (* ;; "dont index the index")
-
-                  elseif (MEMB (FILENAMEFIELD SHORTNAME 'EXTENSION)
-                               '(IMPTR SKIP skip imptr))
-                    then 
-                         (* ;; " don't enuerate ANY.SKIP ANY.IMPTR etc")
-
-                  else (CL:FORMAT S "<LI><A HREF=%"~a%">~a</A></LI>~%%" SHORTNAME SHORTNAME)))
-          (CL:FORMAT S "</UL></BODY></HTML>~%%"))
-         (NCONC SUBDIRS (for D in SUBDIRS join (MAKE-INDEX-HTMLS D (OR TOP BASE)
-                                                      (ADD1 LEVEL])])
-
 (MEDLEY-FIX-LINKS
   [LAMBDA (UNIXPATH)                                       (* ; "Edited 18-Jan-2021 12:01 by larry")
     (OR UNIXPATH (SETQ UNIXPATH (UNIX-GETENV "MEDLEYDIR"))
@@ -361,7 +278,8 @@
                          (PRINTOUT T "DONE" T))])
 
 (MAKE-INDEX-HTMLS
-  [LAMBDA (BASE TOP LEVEL ROOT.NAME)                         (* ; "Edited 29-Apr-2024 14:18 by lmm")
+  [LAMBDA (BASE TOP LEVEL ROOT.NAME)                         (* ; "Edited 23-Jan-2026 11:59 by lmm")
+                                                             (* ; "Edited 29-Apr-2024 14:18 by lmm")
                                                              (* ; "Edited 26-Apr-2024 16:15 by lmm")
                                                              (* ; "Edited 20-Apr-2024 12:34 by lmm")
                                                              (* ; "Edited 13-Apr-2024 21:18 by lmm")
@@ -385,7 +303,8 @@
                           '}))
           SLASHED SHORTNAME)
          (CL:WITH-OPEN-FILE
-          (S DEST :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION :IF-DOES-NOT-EXIST :CREATE)
+          (S DEST :DIRECTION :OUTPUT :IF-EXISTS :NEW-VERSION :IF-DOES-NOT-EXIST :CREATE 
+             :EXTERNAL-FORMAT :UTF-8)
           (CL:FORMAT S "<HTML>~%%<HEAD>~%%")
           (CL:FORMAT S "<TITLE>Index page for ~a</TITLE>~%%" (SETQ SLASHED (SLASHIT BASE)))
           (CL:FORMAT S "<SCRIPT>~%%")
@@ -539,8 +458,6 @@
                (SETQ DIFF (COMPARESOURCES X DESTFILE NIL))
                (TERPRI])
 )
-
-(READVISE TEDIT.PROMPTPRINT)
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
 
 (ADDTOVAR NLAMA )
@@ -550,9 +467,9 @@
 (ADDTOVAR LAMA )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1086 12975 (GATHER-INFO 1096 . 6478) (MAKE-FULLER-DB 6480 . 7389) (MAKE-INDEX-HTMLS 
-7391 . 12344) (MEDLEY-FIX-LINKS 12346 . 12739) (MEDLEY-FIX-DATES 12741 . 12973)) (14154 16942 (
-MAKE-EXPORTS-ALL 14164 . 15223) (MAKE-WHEREIS-HASH 15225 . 16414) (MAKE-WHEREIS-LOOPS 16416 . 16940)) 
-(16943 26173 (HCFILES 16953 . 21216) (MAKE-INDEX-HTMLS 21218 . 26171)) (26423 31035 (RECOMPILE-ONE 
-26433 . 28330) (RECMPL 28332 . 28935) (COMPILE-SETUP 28937 . 29561) (REMAKEFILES 29563 . 31033)))))
+  (FILEMAP (NIL (1092 8026 (GATHER-INFO 1102 . 6484) (MAKE-FULLER-DB 6486 . 7395) (MEDLEY-FIX-LINKS 7397
+ . 7790) (MEDLEY-FIX-DATES 7792 . 8024)) (9205 11993 (MAKE-EXPORTS-ALL 9215 . 10274) (
+MAKE-WHEREIS-HASH 10276 . 11465) (MAKE-WHEREIS-LOOPS 11467 . 11991)) (11994 21371 (HCFILES 12004 . 
+16267) (MAKE-INDEX-HTMLS 16269 . 21369)) (21621 26233 (RECOMPILE-ONE 21631 . 23528) (RECMPL 23530 . 
+24133) (COMPILE-SETUP 24135 . 24759) (REMAKEFILES 24761 . 26231)))))
 STOP
diff --git a/internal/MEDLEY-UTILS.DFASL b/internal/MEDLEY-UTILS.DFASL
index 405c8cc7..3a6bdecf 100644
Binary files a/internal/MEDLEY-UTILS.DFASL and b/internal/MEDLEY-UTILS.DFASL differ
