Find which graph a trace is on

Function /S FindTrace(trace_to_find)
	String trace_to_find
	String wins=WinList("*",";","WIN:1")
	Variable i,j; String win,traces,trace
	for(i=0;i<ItemsInList(wins);i+=1)
		win=StringFromList(i,wins)
		traces=TraceNameList(win,";",3)
		for(j=0;j<ItemsInList(wins);j+=1)
			trace=StringFromList(j,traces)
			if(StringMatch(trace,trace_to_find))
				return win
			endif
		endfor	
	endfor
	return ""
End