*! version 1.0.1  Fri Apr  8 10:47:50 CDT 1994  (STB20: sg25)
program define xi_mkun2 /* meaning make_unique_name <suggested_name> */
	version 3.1
	local name "`1'"

	local totry "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
	local l 0
	local len = length("`name'")
	capture list `name'* in 1		/* try name out */
	while _rc==0 {
		local l=`l'+1
		local name = substr("`name'",1,`len'-1)+substr("`totry'",`l',1)
		capture list `name'* in 1
	}
	global S_1 "`name'"
end