error in compile.el

error in compile.el

[Sam Steingold]

every now and then, I am getting this error:

   debug(error (wrong-type-argument wholenump -1))
   move-to-column(-1)
   compilation-move-to-column(-1 t)
   compilation-internal-error-properties(("foo.ml" . "/bar/baz/zot") 229 nil -1 
0 2 nil)
   compilation-error-properties(2 3 4 5 6 (7) nil)
   eval((compilation-error-properties (quote 2) 3 4 5 6 (quote (7)) (quote nil)))
   font-lock-fontify-keywords-region(10461 12695 nil)
   font-lock-default-fontify-region(10462 12695 nil)
   font-lock-fontify-region(10462 12695)
   font-lock-after-change-function(10462 12695 0)
   compilation-filter(#<process compilation> " very long command line 
\"foo.ml\", line 229, characters 0-0:\nError: Syntax 
error\n[====================  ] 14404 / 14479 
        make[1]: Leaving directory `/bar/baz/zot'\n*** omake: 14404/14479 
targets are up to date\n*** omake: blocked (0.53 sec, 6/1826 scans, 45/6111 
rules, 217/77214 digests)\n[===================   ] 13717 / 14479 
                            *** omake: targets were not rebuilt because of 
errors:\n   .....")

Is it OK to apply this patch:
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/compile.el,v
retrieving revision 1.490
diff -u -w -p -F '^(def' -u -i -p -F ''\''^(def'\''' -b -w -B -r1.490 compile.el
--- compile.el	21 Feb 2009 19:50:17 -0000	1.490
+++ compile.el	2 Mar 2009 20:23:34 -0000
@@ -864,7 +868,7 @@ (defun compilation-move-to-column (col s
  If SCREEN is non-nil, columns are screen columns, otherwise, they are
  just char-counts."
    (if screen
-      (move-to-column col)
+      (move-to-column (max col 0))
      (goto-char (min (+ (line-beginning-position) col) (line-end-position)))))

  (defun compilation-internal-error-properties (file line end-line col end-col 
type fmts)
===================================================================