 	repl-thread (create-clojure-repl-process frame),
 	#^PlainDocument
 	repl-container (proxy [PlainDocument conexp.contrib.gui.repl.ReplProcess] []
-                         (getReplThread []
+                         (getReplThreadMap []
                            repl-thread)
 			 (remove [off len]
 			   (when (>= (- off len -1) @last-pos)

                                             (util/implements-interface? (class (.getDocument thing))
                                                                         conexp.contrib.gui.repl.ReplProcess))))]
    (when repl-container
      (.. repl-container getDocument getReplThread))))

;;;


		:else paran-count)))))

(defprotocol ReplProcess
  (getReplThreadMap [frame] "Returns the repl thread map of the given frame."))

(defn- make-clojure-repl
  "Returns for the given frame a PlainDocument containing a clojure
