 (defn create-node
   [conn node-name label]
   (debug "create-node: name=" node-name ", label=" label)
-  (let [node-neo (nn/create conn { :name node-name })]
-    (nl/add conn node-neo (name label))))
+  (let [node-neo (nn/create conn { :name node-name })
+        name-str (name label)]
+    (debug "node-neo:" node-neo ", name-str:" name-str)
+    (nl/add conn node-neo (name label))
+    node-neo))
 
 (defn load-method
   [conn cgclass-neo cgmethod]
   (debug "load-method:" cgmethod)
   (let [cgmethod-neo (create-node conn (:name cgmethod) :Method)]
+    (debug "cgmethod-neo:" cgmethod-neo)
     (nrl/create conn cgclass-neo cgmethod-neo :hasMethod)))
 
 (defn load-class

  [conn cg]
  (info "Loading callgraph with" (-> cg :classes count) "classes")
  (dorun (map (partial load-class conn) (vals (:classes cg)))))

(require '[clojurewerkz.neocons.rest.nodes :as nn])
(require '[clojurewerkz.neocons.rest.labels :as nl])
(require '[clojurewerkz.neocons.rest.relationships :as nrl])
(require '[clojurewerkz.neocons.rest.cypher :as cy])
(require '[taoensso.timbre :as timbre])

(timbre/refer-timbre)
