another bugfix in names in dispersal1.lisp