     (when (and profile-current
                (not (profile-current-get 'profile-inited t)))
       ;; run this init code once per profile loaded
+      (profile-current-put 'profile-inited t)
       (when remote-host
         (profile-current-put 'remote-host remote-host))
       (when remote-prefix

      (when (and (profile-current-get 'on-profile-init)
                 (fboundp (intern-soft
                           (profile-current-get 'on-profile-init))))
        (profile-current-funcall 'on-profile-init root))
      (profile-current-put 'profile-inited t))))

;; override the advice from `profiles.el'
(defadvice find-file-noselect-1

           (remote-properties
            (profile--compute-remote-properties
             root-dir))
           remote-host
           remote-localname remote-prefix
           profile-basename)
