@@ -84,9 +84,7 @@

    (alexandria:read-file-into-string

     (if account-source

         account-source

-        (merge-pathnames (make-pathname :name "accounts"

-                                        :type "json")

-                         (bundle-resource-root))))))

+        (json-resource "accounts")))))

 (defun reprocess-accounts (accounts)

   (let ((accounts (gethash "Accounts" accounts))

@@ -8,9 +8,14 @@

                                     "pathForResource:ofType:" "app" "icns"))))

 (defun bundle-resource (relpath)

-  (merge-pathnames relpath

+  (merge-pathnames (namestring relpath)

                    (bundle-resource-root)))

+(defun json-resource (path)

+  (bundle-resource

+   (merge-pathnames (make-pathname :type "json")

+                    path)))

+

 (defun clear-cookies ()

   (let ((cookie-storage (objc:invoke "NSHTTPCookieStorage" "sharedHTTPCookieStorage")))

     (map nil