=== modified file 'lisp/comint.el'
--- lisp/comint.el	2011-10-25 12:33:31 +0000
+++ lisp/comint.el	2011-11-05 15:35:31 +0000
@@ -769,18 +769,19 @@
       (goto-char (point-max))
       (set-marker (process-mark proc) (point))
       ;; Feed it the startfile.
-      (cond (startfile
+      ;; (cond (startfile
 	     ;;This is guaranteed to wait long enough
 	     ;;but has bad results if the comint does not prompt at all
 	     ;;	     (while (= size (buffer-size))
 	     ;;	       (sleep-for 1))
 	     ;;I hope 1 second is enough!
-	     (sleep-for 1)
-	     (goto-char (point-max))
-	     (insert-file-contents startfile)
-	     (setq startfile (buffer-substring (point) (point-max)))
-	     (delete-region (point) (point-max))
-	     (comint-send-string proc startfile)))
+	     ;; (sleep-for 1)
+	     ;; (goto-char (point-max))
+	     ;; (insert-file-contents startfile)
+	     ;; (setq startfile (buffer-substring (point) (point-max)))
+	     ;; (delete-region (point) (point-max))
+	     ;; (comint-send-string proc startfile)))
+	     
       (run-hooks 'comint-exec-hook)
       buffer)))