                         [:action
                          (fn [& args]
                            (value! output-dir
-                                   (.getPath (choose-file))))])])
+                                   (.getPath (choose-file :selection-mode :dirs-only))))])])
               ""
               (button :text "Nachkorrektur starten"
                       :listen


(ns ocr-evaluator.core
  (:require [seesaw.core :refer :all]
            [seesaw.chooser :refer :all]

                        [:action
                         (fn [& args]
                           (value! param-dir
                                   (.getPath (choose-file :selection-mode :dirs-only))))])])
              "Eingabeordner"
              (flow-panel
               :items
