diff --git a/generic/tkTextDisp.c b/generic/tkTextDisp.c
index 12b39e6d5..1c55347a2 100644
--- a/generic/tkTextDisp.c
+++ b/generic/tkTextDisp.c
@@ -7172,6 +7172,10 @@ TkTextUpdateLineMetrics(
     assert(endLine <= totalLines);
     assert(textPtr->sharedTextPtr->allowUpdateLineMetrics);
 
+    if (dInfoPtr->flags & DINFO_OUT_OF_DATE) {
+	UpdateDisplayInfo(textPtr);
+    }
+
     dInfoPtr->insideLineMetricUpdate = 1;
 
     if ((range = TkRangeListFindNearest(dInfoPtr->lineMetricUpdateRanges, lineNum))) {