        (.println out (prn-str (search indexfile (.readLine in))))
      (.flush out))
    (catch Exception e
-     (.println System/err e)))
+     (.println System/err e)
+     (.printStackTrace e)))
   (send-off *agent* handle-searches indexfile port))
 
 

           (get-field doc "num")
           (int (* (.score hits %) 100000))
	   (concat [:date
		    (.format *date-output-format*
			     (DateTools/stringToDate (get-field doc "date")))]
		   (mapcat (fn [f] [(keyword f)
				    (get-field doc f)])
			   ["subject" "to" "from" "msgid" "lines" "chars"]))])

             (chatty (format-status (/ msgcount (count to-index))
                                    mps
                                    filename)
	       (try (index-message writer (parse-message filename basedir))
		    (catch java.io.FileNotFoundException e
		      (.println System/err "Oops.  Lost it")))))
           (when (seq fss)
             (recur fss
                    (+ msgcount (count fileset))
