proc small_copy { field_num selection } {
global PGB
	set out ""
	source $PGB(Home)/lib/FD.tcl
	if {[set fp [FDSave "Save Field to a File"]] != ""} {
		foreach i $selection {
			# lose the monitor spacer lines
				set g [ split $i | ]
			if { ([llength $g] > 1) } { 
				set instance [lindex $g $field_num]
				set out "$out $instance\n" 
			}
		}
		puts $fp  $out 
		close $fp
	}
}
