// Copyright (c) 1996-1997 Jeremy Wyld. All rights reserved.
/* For best viewing pleasure set the font to: Courier 10pt with 3 space tabs */


InstallScript 	:= func(partFrame, removeFrame) begin

	GetRoot().(EnsureInternal('oldRoute)) := GetRoot().GetRouteScripts;

	GetRoot().(EnsureInternal('GetRouteScripts)) := kGetRouteScriptsFunc;
	
end;