From e01ac1d70abbe548ed282fe9500f52c837f6f9a2 Mon Sep 17 00:00:00 2001
From: Lars Brinkhoff <lars@nocrew.org>
Date: Sun, 30 Jun 2019 15:06:46 +0200
Subject: [PATCH] Make the KLFEDR command LISTF map in the directory.

Or else it will not see the files.
---
 src/syseng/klfedr.84 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/syseng/klfedr.84 b/src/syseng/klfedr.84
index e72c1586..892a0479 100755
--- a/src/syseng/klfedr.84
+++ b/src/syseng/klfedr.84
@@ -1494,7 +1494,9 @@ TAPOPN:	.CALL [	SETZ
 
 ;DIRECTORY LISTER
 
-LISTF:	PUSHJ P,LISTF0
+LISTF:	PUSHJ P,MAPDIR
+	 .VALUE
+	PUSHJ P,LISTF0
 	 PUSHJ P,SHDIRE		;MATCHES, PRINT IT
 	JRST POPJ1