$!**************************************************************************
$!  This procedure replaces the EVE section file with the 
$!	INSTALL utility.
$!
$!       Written by: P.B.Wischow  29 January 1987
$!**************************************************************************
$	set noon
$	save_dir = "''F$ENVIRONMENT("DEFAULT")'"
$	set process/priv=CMKRNL
$	if $status then goto CONT
$	say ""
$	say "*** Insufficient Privilege For Attempted Operation ***"
$	say ""
$	exit
$CONT:	set def sys$system
$	install := $SYS$SYSTEM:INSTALL/command_mode
$	INSTALL           			! Invoke foreign command
		replace SYS$UTILITY:FRED.TPU$SECTION
!		replace SYS$UTILITY:FRED_V42.GBL

$	set def 'SAVE_DIR'
$	set process/priv=NOCMKRNL
$	set on