--- a/.emacs-my	Wed Oct 14 16:06:08 2009 +0300
+++ b/.emacs-my	Wed Oct 14 17:20:45 2009 +0300
@@ -63,6 +63,10 @@
 ;; (require 'gnuserv)
 ;; (setq gnuserv-frame (selected-frame))
 
+(require 'server)
+(when (and (= emacs-major-version 23) (equal window-system 'w32))
+  (defun server-ensure-safe-dir (dir) "Noop" t)) ; Suppress error directory ~/.emacs.d/server is unsafe on windows.
+
 (server-start)
 
 ;; (desktop-load-default)