just minor changes in scripts/object_in_fluid.tcl