--- rxvt-unicode/src/rxvtperl.xs	2014/05/22 18:54:33	1.224
+++ rxvt-unicode/src/rxvtperl.xs	2014/08/21 15:58:29	1.225
@@ -1839,6 +1839,7 @@
 #endif
 
                   case Opt_cursorUnderline:
+                    THIS->cursor_type = set ? 1 : 0;
                     THIS->want_refresh = 1;
                     THIS->refresh_check ();
                     break;