DATABASEFNS failed when writing .DATABASE file for the first time if the source file name wasn't U-CASE.

library/DATABASEFNS

@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED " 2-May-2026 17:38:46" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;4
 18684  
+
(FILECREATED " 8-May-2026 22:08:38" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;3
 18791  
 
       :EDIT-BY "mth"
 
       :CHANGES-TO (FNS DUMPDB)
 
-      :PREVIOUS-DATE "29-Apr-2026 17:43:56" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;2
+      :PREVIOUS-DATE " 2-May-2026 17:38:46" {DSK}<home>matt>Interlisp>medley>library>DATABASEFNS.;1
 )
 
 
@@ -165,7 +165,8 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
 (DEFINEQ
 
 (DUMPDB

-  [LAMBDA (FILE PROPFLG)
                                     (* ; "Edited  2-May-2026 17:32 by mth")


+  [LAMBDA (FILE PROPFLG)
                                     (* ; "Edited  8-May-2026 16:18 by mth")


+                                                             (* ; "Edited  2-May-2026 17:32 by mth")


                                                              (* ; "Edited 29-Apr-2026 17:42 by mth")


                                                              (* ; "Edited 20-Feb-2024 23:45 by mth")


                                                              (* ; "Edited  7-Feb-2024 18:26 by mth")


@@ -184,7 +185,7 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
               (SAVEDDEFAULTCOPYRIGHTOWNER DEFAULTCOPYRIGHTOWNER))
              (CL:UNWIND-PROTECT
                  (PROG (DBFILE
 DBFN DBROOTFN FLCPR (FL (ROOTFILENAME FILE))
-                              (FNS (FILEFNSLST FILE)))
+                              (FNS (FILEFNSLST FL)))
                        (SETQ DBFN (PACKFILENAME 'EXTENSION 'DATABASE 'VERSION NIL 'BODY FILE))
                        (SETQ DBROOTFN (ROOTFILENAME DBFN))
                        (CL:UNLESS (OR (EQ COPYRIGHTFLG 'NEVER)
@@ -381,6 +382,6 @@ Copyright (c) 1986, 1990-1993, 2024, 2026 by Xerox Corporation.
 (PUTPROPS DATABASEFNS COPYRIGHT ("Xerox Corporation" 1986 1990 1991 1992 1993 2024 2026))
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL (1783 6808 (DBFILE 1793 . 3438) (DBFILE1 3440 . 4950) (DBFILE2 4952 . 6174) (LOAD 6176
- . 6406) (LOADFROM 6408 . 6596) (MAKEFILE 6598 . 6806)) (6864 18072 (DUMPDB 6874 . 12107) (LOADDB 
-12109 . 16984) (MAKEDB 16986 . 18070)))))
+ . 6406) (LOADFROM 6408 . 6596) (MAKEFILE 6598 . 6806)) (6864 18179 (DUMPDB 6874 . 12214) (LOADDB 
+12216 . 17091) (MAKEDB 17093 . 18177)))))
 STOP