diff --git a/ideintf/configstorage.pas b/ideintf/configstorage.pas
index 409cfb5561..808b583237 100644
--- a/ideintf/configstorage.pas
+++ b/ideintf/configstorage.pas
@@ -44,7 +44,7 @@ type
     procedure DeleteFullPath(const APath: string); virtual; abstract;
     procedure DeleteFullPathValue(const APath: string); virtual; abstract;
   public
-    constructor Create(const Filename: string; LoadFromDisk: Boolean); virtual; abstract;
+    constructor Create(const Filename: string; LoadFromDisk: Boolean); virtual;
     destructor Destroy; override;
     function  GetValue(const APath, ADefault: String): String;
     function  GetValue(const APath: String; ADefault: Integer): Integer;
@@ -73,6 +73,12 @@ implementation
 
 { TConfigStorage }
 
+constructor TConfigStorage.Create(const Filename: string; LoadFromDisk: Boolean
+  );
+begin
+
+end;
+
 destructor TConfigStorage.Destroy;
 begin
   FPathStack.Free;