--- a/.emacs-my	Tue Aug 02 17:52:09 2011 +0300
+++ b/.emacs-my	Wed Aug 03 09:15:07 2011 +0300
@@ -1304,7 +1304,10 @@
    )
   (comint-send-string (get-buffer-process (current-buffer)) string)
   )
-(define-key compilation-mode-map [C-return] 'my-comint-send-string)
+(eval-after-load 'compile
+  '(progn
+     (define-key compilation-mode-map [C-return] 'my-comint-send-string)
+     ))
 
 ;;; ----------------------------------------------------------------
 (message "TAGS, etags, ctags, GNU GLOBAL")