diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el
index d8a7858c90d..ea8f6ffbddd 100644
--- a/lisp/w32-fns.el
+++ b/lisp/w32-fns.el
@@ -223,10 +223,10 @@ You should set this to t when using a non-system shell.\n\n"))))
 ;;; source-directory, set it to something that is a reasonable approximation
 ;;; on the user's machine.
 
-(add-hook 'before-init-hook 
-	  '(lambda ()
-	     (setq source-directory (file-name-as-directory 
-				     (expand-file-name ".." exec-directory)))))
+;(add-hook 'before-init-hook 
+;	  '(lambda ()
+;	     (setq source-directory (file-name-as-directory 
+;				     (expand-file-name ".." exec-directory)))))
 
 ;; Avoid creating auto-save file names containing invalid characters.
 (fset 'original-make-auto-save-file-name