diff --git a/src/gui/client/certificates-window.lisp b/src/gui/client/certificates-window.lisp
index e040f81..c2c9491 100644
--- a/src/gui/client/certificates-window.lisp
+++ b/src/gui/client/certificates-window.lisp
@@ -96,12 +96,12 @@
 
 (defun on-file-choosen-clsr (entry parent &optional (initial-dir nil))
   (lambda ()
-    (when (gui:text (certificate-entry parent))
+    (when (string-not-empty-p (gui:text (certificate-entry parent)))
       (setf initial-dir (fs:parent-dir-path (gui:text (certificate-entry parent)))))
     (let ((file-path (gui:get-open-file :initial-dir initial-dir
-                                        :parent parent
-                                        :multiple nil
-                                        :title (_ "Choose the file"))))
+                                        :parent      parent
+                                        :multiple    nil
+                                        :title       (_ "Choose the file"))))
       (setf (gui:text entry) file-path))))
 
 (defun import-certificate-clsr (import-window certificate-frame)