diff --git a/ChangeLog b/ChangeLog
index 1a96bf3..21fa691 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4970,3 +4970,8 @@ Wed Jan 22 15:12:36 2003                        Michael Jennings (mej)
 Yasufumi Haga <yasufumi.haga@nifty.com> found another typo in the man
 page, this one concerning the non-existent "bold multichar" font.
 ----------------------------------------------------------------------
+Mon Jan 27 17:31:41 2003                        Michael Jennings (mej)
+
+Support for xterm's cursor color change sequence (\e]12;<color>\a) as
+requested by Thomas <arnognul@tiscali.se>.
+----------------------------------------------------------------------
diff --git a/src/term.c b/src/term.c
index 869e038..59d1db0 100644
--- a/src/term.c
+++ b/src/term.c
@@ -2365,6 +2365,19 @@ xterm_seq(int op, const char *str)
           }
           break;
 
+      case XTerm_ccolor:
+          /* Change cursor color */
+#ifndef NO_CURSORCOLOR
+          nstr = (char *) strsep(&tnstr, ";");
+          if (nstr) {
+              if (XParseColor(Xdisplay, cmap, nstr, &xcol) && XAllocColor(Xdisplay, cmap, &xcol)) {
+                  PixColors[cursorColor] = xcol.pixel;
+                  scr_refresh(DEFAULT_REFRESH);
+              }
+          }
+#endif
+          break;
+
       case XTerm_Pixmap:
 #ifdef PIXMAP_SUPPORT
           FOREACH_IMAGE(if (!image_mode_is(idx, MODE_IMAGE) && image_mode_is(idx, ALLOW_IMAGE)) {
diff --git a/src/term.h b/src/term.h
index b4e6624..966b927 100644
--- a/src/term.h
+++ b/src/term.h
@@ -63,6 +63,7 @@
 # define XTerm_iconName	1
 # define XTerm_title	2
 # define XTerm_prop	3
+# define XTerm_ccolor	12
 # define XTerm_logfile	46
 # define XTerm_font	50