From 257cf107626f76a30f7376a56b6894a6e14b9f1f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Sun, 6 Feb 2022 12:43:11 +0100
Subject: [PATCH] * Fix saving of options for using http server

---
 components/pas2js/pjsdsgnregister.pas | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/components/pas2js/pjsdsgnregister.pas b/components/pas2js/pjsdsgnregister.pas
index f91d5ea774..1c896f20dd 100644
--- a/components/pas2js/pjsdsgnregister.pas
+++ b/components/pas2js/pjsdsgnregister.pas
@@ -373,16 +373,16 @@ begin
         SO(UseRunOnReady,baoRunOnReady);
         SO(ShowUncaughtExceptions,baoShowException);
         SO(UseWASI,baoUseWASI);
-        DebugLN(['Start server:', CO(baoStartServer)]);
-        if CO(baoStartServer) then
+        SO(StartHTTPServer,baoStartServer);
+        Self.ProjectPort:=ServerPort;
+        SO(UseURL,baoUseURL);
+        if baoStartServer in FOptions then
           begin
-          Self.ProjectPort:=ServerPort;
           DebugLN(['Start server port: ', Self.ProjectPort,'from: ',ServerPort]);
           end
         else
           begin
-          UseURL:=CO(baoUseURL);
-          if UseURL then
+          if baoUseURL in Options then
             FProjectURL:=URL;
           end;
         end;