 ;; set home directory
 ;; 1: check HOME variable
 (when (or
-			 (string-equal (getenv "HOME") nil)
+			 (not (getenv "HOME"))
 			 (string-equal (getenv "HOME") "")
 			 )
 	(if (y-or-n-p  "Environment variable HOME not set! Do this now?")

;;=========================================================

(when (eq system-type 'windows-nt)
	
	(when (getenv "WEMACS_HOME")
		 ;; set path to wemacs folder with additional third-party software
		 (setq wemacs-dir

(defvar home-directory)
(setq home-directory default-directory)

(when (getenv "EMACS_USER_DIRECTORY")
	(setq user-emacs-directory
				(expand-file-name (concat (getenv "EMACS_USER_DIRECTORY") "/"))))

