--- a/.emacs-my	Mon Apr 26 17:05:42 2010 +0300
+++ b/.emacs-my	Mon Apr 26 17:07:08 2010 +0300
@@ -636,7 +636,7 @@
 
 (when (eq window-system 'w32)           ; may require Cygwin or MSYS
   (if my-use-windows-shell
-      (prog
+      (progn
        ;; Restore shell name if user set SHELL env var for Cygwin/MSYS.
        (setq shell-file-name (concat exec-directory "cmdproxy.exe"))
        ;; Here is workaround: when explicit-shell-file-name is "bash" and shell-file-name is "cmdproxy.exe"
@@ -645,7 +645,7 @@
        ;; prevent quoting.
        (setq find-ls-option '("-exec ls -ld {}  ;" . "-ld"))
        )
-    (prog
+    (progn
      ;; Use shell from Cygwin/MinGW.
      (setq shell-file-name "sh")
      )