proc trf_restoreb {} {
# $Header: /home/cvsroot/tcldb/ucodb/Tlib/trf_restoreb,v 1.1.1.1 1996/10/12 01:08:27 de Exp $
	global trf_blk trf_arr trf_tmp trf_len trf_sav trf_lin

	set i 1
	while {[lsearch $trf_sav $i] >= 0} {
		incr i
	}
	foreach l [lsort -integer [array names trf_tmp]] {
		set trf_arr($i) $trf_tmp($l)
		incr i
	}
	set trf_lin $i
}
