Evaluated proc dfl {s d} {if {$s eq ""} {return $d} else {return $s}}