clojure: fix morphism function for nets with next-nearest neighbor collisions