diff --git a/ide/lazarusmanager.pas b/ide/lazarusmanager.pas
index 0a34dc5731..9a82174067 100644
--- a/ide/lazarusmanager.pas
+++ b/ide/lazarusmanager.pas
@@ -118,22 +118,14 @@ type
     procedure LazarusProcessStart(Sender: TObject);
     procedure WaitForLazarus;
   public
-    constructor Create; reintroduce;
     destructor Destroy; override;
+    procedure Initialize;
     procedure Run;
     procedure ShowSplash;
   end;
 
 implementation
 
-constructor TLazarusManager.Create;
-begin
-  inherited Create(nil);
-  SplashForm := nil;
-  ShowSplash;
-  ParseCommandLine;
-end;
-
 destructor TLazarusManager.Destroy;
 begin
   FreeAndNil(FCmdLineParams);
@@ -260,6 +252,13 @@ begin
     WaitForPID(FLazarusPID);
 end;
 
+procedure TLazarusManager.Initialize;
+begin
+  SplashForm := nil;
+  ShowSplash;
+  ParseCommandLine;
+end;
+
 procedure TLazarusManager.Run;
 var
   Restart: boolean;
diff --git a/ide/startlazarus.lpr b/ide/startlazarus.lpr
index 8f30cc09fe..e98b037695 100644
--- a/ide/startlazarus.lpr
+++ b/ide/startlazarus.lpr
@@ -44,7 +44,8 @@ var
   
 begin
   Application.Initialize;
-  ALazarusManager := TLazarusManager.Create;
+  ALazarusManager := TLazarusManager.Create(nil);
+  ALazarusManager.Initialize;
   ALazarusManager.Run;
   FreeAndNil(ALazarusManager);
 end.