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