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

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

		: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
