diff --git a/components/lazdebuggergdbmi/gdbmidebugger.pp b/components/lazdebuggergdbmi/gdbmidebugger.pp
index 9062dc6c5a..ab907a5f1a 100644
--- a/components/lazdebuggergdbmi/gdbmidebugger.pp
+++ b/components/lazdebuggergdbmi/gdbmidebugger.pp
@@ -10975,7 +10975,7 @@ begin
       WStr := WStr + OneChar;
       CurLocation := CurLocation + 2;
     end;
-  until (OneChar = #0);
+  until (OneChar = #0) or (Length(WStr) > DebuggerProperties.MaxDisplayLengthForString);
   Result := UTF16ToUTF8(WStr);
 end;