     (reset! repl-input-window ri)
     (reset! repl-output-window ro)
     (reset! current-filename (:current-filename @current-profile))
+    (make-ui)
     (.setText (:text-area ew) (slurp @current-filename))))
 
 (when (find-ns 'ccw.complete)

    [leiningen.core.main :as lein-main])
  (:use [clojure.java.io :only [file]] 
        [clojure.pprint]
        [seesaw core font color graphics chooser]
        [brevis.ui.profile]))

;; ## Globals


(def repl-outputstream
  (atom nil))

(def ui-window
  "The complete UI panel." (atom nil))

;;

