diff --git a/ChangeLog b/ChangeLog
index 4060c239d3..24e36db5e8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+Fri Sep  5 15:32:04 2003  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* misc/ruby-mode.el (ruby-font-lock-maybe-here-docs): should not
+	  search delimiter forward if found in backward.
+
 Fri Sep  5 13:32:48 2003  Nobuyoshi Nakada  <nobu@ruby-lang.org>
 
 	* test/runner.rb: arguments should be keys.
diff --git a/misc/ruby-mode.el b/misc/ruby-mode.el
index f538714f44..8d9df41a4a 100644
--- a/misc/ruby-mode.el
+++ b/misc/ruby-mode.el
@@ -1085,8 +1085,8 @@ balanced expression is found."
 	      (setq beg (point)))))
       (if (and beg
 	       (let ((end-match (ruby-here-doc-end-match)))
-                 (not (re-search-backward end-match beg t))
-                 (re-search-forward end-match nil t)))
+                 (and (not (re-search-backward end-match beg t))
+		      (re-search-forward end-match nil t))))
 	  (progn
 	    (set-match-data (list beg (point)))
 	    t)