* Added overloaded constructor so omitting argument will not cause problems

packages/rtl/classes.pas

@@ -867,6 +867,7 @@ type
   private
     function GetDataString : String;
   public
+    constructor Create; reintroduce; overload;
     constructor Create(const aString: String); virtual; overload;
     function ReadString(Count: Integer): string;
     procedure WriteString(const AString: string);
@@ -1529,6 +1530,11 @@ begin
     end;
 end;
 
+constructor TStringStream.Create;
+begin
+  Create('');
+end;
+
 constructor TStringStream.Create(const aString: String);
 
 var