object_in_fluid.tcl - when creating object's bonds, first check whether ks != 0...