Made sure that DISPLAYFONTDIRECTORIES is a list

sources/MEDLEYDIR

@@ -1,12 +1,10 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "22-Mar-2026 09:52:47" {WMEDLEY}<sources>MEDLEYDIR.;46
 15917  
+
(FILECREATED "13-Apr-2026 14:26:49" {WMEDLEY}<sources>MEDLEYDIR.;47
 15877  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS MEDLEYDIRCOMS)
-
-      :PREVIOUS-DATE "31-Jan-2026 23:43:06" {WMEDLEY}<sources>MEDLEYDIR.;44)
+      :PREVIOUS-DATE "22-Mar-2026 09:52:47" {WMEDLEY}<sources>MEDLEYDIR.;46)
 
 
 (PRETTYCOMPRINT MEDLEYDIRCOMS)
@@ -283,6 +281,6 @@
 (ADDTOVAR GLOBALVARS
 MEDLEYDIR MEDLEY-INIT-VARS \SAVE.MEDLEYDIR DIRECTORIES SYSOUTCOMMITS)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5231 13243 (MEDLEY-INIT-VARS 5241 . 8719) (MEDLEYDIR 8721 . 12043) (MEDLEYSUBSTDIR 
-12045 . 13023) (SET-SYSOUT-COMMIT 13025 . 13241)))))
+  (FILEMAP (NIL (5191 13203 (MEDLEY-INIT-VARS 5201 . 8679) (MEDLEYDIR 8681 . 12003) (MEDLEYSUBSTDIR 
+12005 . 12983) (SET-SYSOUT-COMMIT 12985 . 13201)))))
 STOP