process: Name all processes started by osmo-core

Dispatcher.st

@@ -38,7 +38,12 @@ Object subclass: Dispatcher [
         <category: 'private'>
         quit := false.
         queue := SharedQueue new.
-        dispatch := [[quit] whileFalse: [self dispatch]] forkAt: Processor highIOPriority.
+        dispatch := [
+            Processor activeProcess name: 'OsmoDispatcher'.
+	    [quit]
+              whileFalse: [
+                self dispatch]
+          ] forkAt: Processor highIOPriority.
     ]
 
     dispatchBlock: aBlock [

Timer.st

@@ -99,7 +99,8 @@ bit difficult to do this race free.'>
         queue := SortedCollection sortBlock: [:a :b | a timeout < b timeout].
         sem := Semaphore forMutualExclusion.
         quit := false.
-        loop := [self runTimers] fork.
+        loop := [Processor activeProcess name: 'Osmo Timers'.
+                 self runTimers] fork.
     ]
 
     scheduleInSeconds: aDelay block: aBlock [