diff --git a/leoservermod/init.sqf b/leoservermod/init.sqf
index f4a7d71..b4a180e 100644
--- a/leoservermod/init.sqf
+++ b/leoservermod/init.sqf
@@ -1,17 +1,8 @@
 diag_log "leoext: try to initialize...";
 
+leoext_stop = false;
+
 _return = "libleoext" callExtension "foooo";
 execVM "\leoservermod\marker.sqf";
 
-leoext_stop = false;
-
-[] spawn {
-	while {!leoext_stop} do {
-		sleep 1;
-		private _markers = call leoext_map_markers_information;
-		private _units = call leoext_units_pos;
-		"libleoext" callExtension ["foo", [[_markers, _units]]];
-	};
-}
-
 diag_log format ["leoext: initialize complete! return: %1", _return];
\ No newline at end of file
diff --git a/leoservermod/marker.sqf b/leoservermod/marker.sqf
index dd68e7c..a2d9ace 100644
--- a/leoservermod/marker.sqf
+++ b/leoservermod/marker.sqf
@@ -26,4 +26,17 @@ leoext_units_pos = {
 	} forEach allUnits;
 
 	_units_pos;
-};
\ No newline at end of file
+};
+
+leoext_markers_start = {
+	[] spawn {
+		while {!leoext_stop} do {
+			sleep 1;
+			private _markers = call leoext_map_markers_information;
+			private _units = call leoext_units_pos;
+			"libleoext" callExtension ["foo", [[_markers, _units]]];
+		};
+	};
+};
+
+call leoext_markers_start;
\ No newline at end of file
diff --git a/server.lisp b/server.lisp
index d17ac3e..df23d75 100644
--- a/server.lisp
+++ b/server.lisp
@@ -86,33 +86,34 @@
     (,(concatenate 'string "^" +static-prefix+ ".*$") ,#'serve-static-file)
     (nil ,#'route-not-found)))
 
-(if (not (find-package 'swank))
-    (sb-thread:make-thread
-     (lambda ()
-       (woo:run
-        (lambda (env)
-          ;;(print env)
-          ;;(print (type-of env))
-          (if (eq :post (getf env :request-method))
-              (let* ((post-stream (getf env :raw-body))
-                     (char-stream (flexi-streams:make-flexi-stream
-                                   post-stream
-                                   :external-format :utf-8)))))
+
+(sb-thread:make-thread
+ (lambda ()
+   (woo:run
+    (lambda (env)
+      ;;(print env)
+      ;;(print (type-of env))
+      (if (eq :post (getf env :request-method))
+          (let* ((post-stream (getf env :raw-body))
+                 (char-stream (flexi-streams:make-flexi-stream
+                               post-stream
+                               :external-format :utf-8)))))
                                         ;(format t (read-line char-stream))))
                                         ;(format t "dispatching...")
-          (let ((route-function (dispatch (getf env :request-uri) +dispatch-table+)))
-            (format t "method:~A uri:~A route: ~A~%"
-                    (getf env :request-method)
-                    (getf env :request-uri)
-                    route-function)
-            (funcall route-function env)))
-        :port 5000
-        :address "0.0.0.0"))
-     :name "webserver"))
+      (let ((route-function (dispatch (getf env :request-uri) +dispatch-table+)))
+        (format t "method:~A uri:~A route: ~A~%"
+                (getf env :request-method)
+                (getf env :request-uri)
+                route-function)
+        (funcall route-function env)))
+    :port 5000
+    :address "0.0.0.0"))
+ :name "webserver")
 
-(sb-thread:list-all-threads)
-(mapcar #'sb-thread:terminate-thread
-        (remove-if-not
-         (lambda (thread)
-           (string= "webserver" (sb-thread:thread-name thread)))
-         (sb-thread:list-all-threads)))
+
+(if (find-package 'swank)
+    (mapcar #'sb-thread:terminate-thread
+            (remove-if-not
+             (lambda (thread)
+               (string= "webserver" (sb-thread:thread-name thread)))
+             (sb-thread:list-all-threads))))