--- frmpaint.cxx.bu	2017-09-21 14:23:06.928666724 +0100
+++ frmpaint.new	2017-09-25 22:37:06.463298988 +0100
@@ -256,7 +256,7 @@
 void SwExtraPainter::PaintRedline( SwTwips nY, long nMax )
 {
     Point aStart( nRedX, nY );
-    Point aEnd( nRedX, nY + nMax );
+    Point aEnd( nRedX + 32, nY + nMax );
 
     if( !IsClipChg() )
     {
@@ -271,14 +271,19 @@
     const Color aOldCol( pSh->GetOut()->GetLineColor() );
     pSh->GetOut()->SetLineColor( SW_MOD()->GetRedlineMarkColor() );
 
+    const Color aOldFill( pSh->GetOut()->GetFillColor() );
+    pSh->GetOut()->SetFillColor( SW_MOD()->GetRedlineMarkColor() );
+
     if ( pTextFrame->IsVertical() )
     {
         pTextFrame->SwitchHorizontalToVertical( aStart );
         pTextFrame->SwitchHorizontalToVertical( aEnd );
     }
 
-    pSh->GetOut()->DrawLine( aStart, aEnd );
+    tools::Rectangle aRedLine( aStart, aEnd );
+    pSh->GetOut()->DrawRect( aRedLine );
     pSh->GetOut()->SetLineColor( aOldCol );
+    pSh->GetOut()->SetFillColor( aOldFill );
 }
 
 void SwTextFrame::PaintExtraData( const SwRect &rRect ) const