3 seconds

racket-webview.rkt

@@ -456,7 +456,7 @@
          (server-cert (certificate cert))
          (channel (make-async-channel))
          (server (let ((s (start-web-server h channel cert)))
-                   (sleep 1) ;;; ToDO Check if server is up
+                   (sleep 3) ;;; ToDO Check if server is up
                    s))
          (port-nr (let ((pn (async-channel-get channel)))
                     (set-wv-context-port! h pn)