proc trf_saveb {} {
# $Header: /home/cvsroot/tcldb/ucodb/Tlib/trf_saveb,v 1.1.1.1 1996/10/12 01:08:27 de Exp $

	global trf_blk trf_arr trf_tmp trf_len trf_sav

	catch {unset trf_tmp}	

	loop  i $trf_blk [expr $trf_len + 1] {
		if {[lsearch $trf_sav $i] >= 0} {
			break
		}
		set trf_tmp($i) $trf_arr($i)
		set trf_arr($i) ""
	}

}
