Fix tcl interface for langevin_per_particle