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

                        [:action
                         (fn [& args]
                           (value! ocr-dir
                                   (.getPath (choose-file))))])])
              "Zielordner für Ergebnisse"
              (flow-panel
               :items

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