clojure: fixed an issue in the morphism function