; Replace the call to CLI$DCL_PARSE in FINGER with
; an identical call to KLUDGE_CLI$DCL_PARSE

	.ENTRY KLUDGE_CLI$DCL_PARSE,^M<R2,R3,R4,R5,R6,R7>
	MOVAB -100(SP), SP		; Leave plenty of space for DCL to wreck
	movl ap, r0
	CALLG (r0), CLI$DCL_PARSE
	RET

	.END