diff --git a/components/fpdebug/fpdbghardcodedfreepascalinfo.pas b/components/fpdebug/fpdbghardcodedfreepascalinfo.pas
index 98fe746148..be4b080b93 100644
--- a/components/fpdebug/fpdbghardcodedfreepascalinfo.pas
+++ b/components/fpdebug/fpdbghardcodedfreepascalinfo.pas
@@ -149,7 +149,7 @@ type
   protected
     function GetValueObject: TFpValue; override;
   public
-    constructor Create(const AName: String; AKind: TDbgSymbolKind; ATypeSymbol: TDbgTypeSymbol; AMemLocation: TFpDbgMemLocation);
+    constructor Create(const AName: String; AKind: TDbgSymbolKind; ATypeSymbol: TFpSymbol; AMemLocation: TFpDbgMemLocation);
   end;
 
   { TDbgHardcodedFPCClassMember }
@@ -554,9 +554,10 @@ begin
   (Result as TDbgHardcodedVariableValue).SetDataSymbol(Self);
 end;
 
-constructor TDbgHardcodedVariableAtMemLocation.Create(const AName: string; AKind: TDbgSymbolKind; ATypeSymbol: TDbgTypeSymbol; AMemLocation: TFpDbgMemLocation);
+constructor TDbgHardcodedVariableAtMemLocation.Create(const AName: string; AKind: TDbgSymbolKind; ATypeSymbol: TFpSymbol; AMemLocation: TFpDbgMemLocation);
 begin
   inherited create(AName, AKind, AMemLocation);
+  Assert(ATypeSymbol.SymbolType=stType);
   // This is strange, as it is already set in the inherited call. But the cache-
   // flags are not properly set.
   SetAddress(AMemLocation);