diff --git a/OsmoCore.st b/OsmoCore.st
index 3f0dd50..314c92e 100644
--- a/OsmoCore.st
+++ b/OsmoCore.st
@@ -16,16 +16,21 @@ Object subclass: OSMOCore [
         ObjectMemory addDependent: self.
     ]
 
+    OSMOCore class >> poll [
+        | delay |
+        delay := Delay forMilliseconds: 50.
+
+        [true] whileTrue: [
+            self bsc_select_main: 1.
+            delay wait.
+        ].
+    ]
+
     OSMOCore class >> startProcess [
         "I start a new polling process"
-        | delay |
-        delay := Delay forMilliseconds: 500.
 
         Process := [
-            [true] whileTrue: [
-                self bsc_select_main: 1.
-"                delay wait."
-            ].
+            self poll.
         ] fork.
     ]
 
@@ -51,5 +56,4 @@ Object subclass: OSMOCore [
 
 Eval [
     OSMOCore initialize.
-    OSMOCore startProcess
 ]