                 :traverse (label-table "traverse" (second args))
                 :parameter (label-table "parameter"
                                 (if (uuid? (first args))
-                                  (trim-id (first args)) 
+                                  (trim-id (first args))
                                   (first args)))
                 (str "\"" (name type) "\""))]
-        (str "\t\"" (dot-id id) "\" [label=" label "]")))
+        (str "\t\"" (trim-id id) "\" [label=" label "]")))
 
 (defn- dot-plan
   [plan]

(ns plasma.viz
  (:use [plasma util core operator]
        jiraph.graph)
  (:require [logjam.core :as log]
            [vijual :as vij]
            [clojure (zip :as zip)]))

    (doseq [[id op] (:ops plan)]
      (println (dot-op op))
      (doseq [edge (:deps op)]
        (println (str "\t\"" (trim-id id) "\" -> \"" (trim-id edge) "\""))))
    (println "}")))

(defn save-dot-plan
