CMNT	 	Patches the connectors in specified instances
CMNT	 	Input:  É ¥ list/inst/É
CMNT	 	Output:  É ¥ inst/É
PRIM	List/Test for leaf	É ¥ rslt/list/inst/É
BRFL	 	branch if not a leaf
	PRIM	List/Behead	É ¥ list2/list'/inst/É
	PRIM	Stack/Second to aux	É/list' ¥ list2/inst/É
	LCAL	DoIt	É/list' ¥ inst/É
	PRIM	Stack/Push from aux	É ¥ list'/inst/É
	CALL	354121
BRTR
PRIM	List/List to item
LCAL	DoIt
LDEF	DoIt
	CMNT	 	does the work of patching the instance, etc.
	CMNT	 	Input:  É ¥ list/inst/É
	CMNT	 	Output:  É ¥ inst/É
	PRIM	List/Remove	É ¥ list'/key/inst/É
	PRIM	Stack/Rotate up	É ¥ key/inst/list'/É
	PRIM	S_tree/Get exact	É ¥ ag_inst/key/inst/list'/É
	PRIM	Stack/Second to aux	É/key ¥ ag_inst/inst/list'/É
	PRIM	Stack/Second to aux	É/key/inst ¥ ag_inst/list'/É
	PRIM	List/Behead	É/key/inst ¥ name/ag_inst/list'/É
	PRIM	Stack/Switch	É/key/inst ¥ list'/ag_inst/name/É
	PRIM	List/Remove	É/key/inst ¥ list''/conn/ag_inst/name/É
	PRIM	List/List to item	É/key/inst ¥ index/conn/ag_inst/name/É
	PRIM	Stack/Pop to aux	É/key/inst/index ¥ conn/ag_inst/name/É
	PRIM	S_tree/Get exact	É/key/inst/index ¥ list/conn/ag_inst/name/É
	PRIM	Stack/Push from aux	É/key/inst ¥ index/list/conn/ag_inst/name/É
	PRIM	Stack/Dup down	É/key/inst ¥ index/list/index/conn/ag_inst/name/É
	PRIM	List/Read	É/key/inst ¥ cnctr/list/index/conn/ag_inst/name/É
	LCAL	GetMSGE	É/key/inst ¥ cnctr/list/index/conn/ag_inst/name/É
	PRIM	Stack/Rotate down	É/key/inst ¥ index/cnctr/list/conn/ag_inst/name/É
	PRIM	List/Replace	É/key/inst ¥ list/conn/ag_inst/name/É
	PRIM	S_tree/Put	É/key/inst ¥ ag_inst/name/É
	PRIM	List/Add	É/key/inst ¥ ag_inst/É
	PRIM	Stack/Push from aux	É/key ¥ inst/ag_inst/É
	PRIM	Stack/Push from aux	É ¥ key/inst/ag_inst/É
	PRIM	Stack/Rotate down	É ¥ ag_inst/key/inst/É
	PRIM	S_tree/Put	É ¥ inst/É
EDEF
LDEF	GetMSGE
	CMNT	 	finds the MSGE list and patches it
	CMNT	 	Input:  É/inst ¥ cnctr/É
	CMNT	 	Output:  É/inst ¥ cnctr/É
	PRIM	List/Test for leaf	É/inst ¥ rslt/cnctr/É
	BRFL	 	branch if not the leaf
		PRIM	List/Remove	É/inst ¥ cnctr/item/É
		LCAL	GetMSGE	É/inst ¥ cnctr/item/É
		PRIM	List/Add	É/inst ¥ cnctr/É
	BRTR
	PRIM	List/List to item	É/inst ¥ MSGE/É
	LITO	1	É/inst ¥ 1/MSGE/É
	PRIM	List/Read	É/inst ¥ ref/MSGE/É
	PRIM	Stack/Push from aux	É ¥ inst/ref/MSGE/É
	LITO	1	É ¥ 1/inst/ref/MSGE/É
	PRIM	Stack/Rotate down	É ¥ ref/1/inst/MSGE/É
	PRIM	S_tree/Read	É ¥ name/inst/MSGE/É
	PRIM	Stack/Second to aux	É/inst ¥ name/MSGE/É
	LITO	1	É/inst ¥ 1/name/MSGE/É
	PRIM	List/Replace	É/inst ¥ MSGE/É
	PRIM	List/Item to list	É/inst ¥ cnctr/É
EDEF