Update insert_buffer.tcl