                   (command))
                 (f form))
               (catch Exception e
-                (.printStackTrace e (PrintStream. outs)))))))
+                (print-stacktrace e))))))
       0 (InetAddress/getByName "localhost"))))
 
 (defn create [port f & commands]


(defn num-connections []
  (reduce + (map #(count @(:connections %)) @servers)))

(defn validate-form []
  (println

        (println "cannot reload non-clojure file:" file)
        (if-let [ns (second (read-file-ns-decl (java.io.File. file)))]
          (when (find-ns ns) ;; don't reload namespaces that aren't already loaded
            (try (load-file file)
                 (catch Exception e
                   (print-stacktrace e))))
          (println "cannot reload file without namespace declaration:" file))))))

(defn exit []
