proc mwildcard {v} {
	return [string map {"%" "\\%" "*" "%" "_" "\\_" "?" "_"} $v]
}