diff --git a/debugger/gdbtypeinfo.pp b/debugger/gdbtypeinfo.pp
index 1bb1d95526..bf176be160 100644
--- a/debugger/gdbtypeinfo.pp
+++ b/debugger/gdbtypeinfo.pp
@@ -564,7 +564,7 @@ begin
     end
 
     else
-    if (S[1] = '^')
+    if ((S <> '') and (S[1] = '^'))
     or ((ParsedWhatIsValue <> '') and (ParsedWhatIsValue[1] = '^'))
     or ((ParsedWhatIsType <> '') and (ParsedWhatIsType[1] = '^'))
     then begin