Make io.servers.connection work if SSL is not available

basis/io/servers/connection/connection.factor

@@ -114,19 +114,29 @@ M: threaded-server handle-client* handler>> call ;
         ] when*
     ] unless ;
 
+: (start-server) ( threaded-server -- )
+    init-server
+    dup threaded-server [
+        dup name>> [
+            [ listen-on [ start-accept-loop ] parallel-each ]
+            [ ready>> raise-flag ]
+            bi
+        ] with-logging
+    ] with-variable ;
+
 PRIVATE>
 
 : start-server ( threaded-server -- )
-    init-server
+    #! Only create a secure-context if we want to listen on
-    dup secure-config>> [
+    #! a secure port, otherwise start-server won't work at
-        dup threaded-server [
+    #! all if SSL is not available.
-            dup name>> [
+    dup secure>> [
-                [ listen-on [ start-accept-loop ] parallel-each ]
+        dup secure-config>> [
-                [ ready>> raise-flag ]
+            (start-server)
-                bi
+        ] with-secure-context
-            ] with-logging
+    ] [
-        ] with-variable
+        (start-server)
-    ] with-secure-context ;
+    ] if ;
 
 : wait-for-server ( threaded-server -- )
     ready>> wait-for-flag ;