dispatcher: Really merge it, verify that install is called

Dispatcher.st

@@ -23,7 +23,7 @@ Object subclass: Dispatcher [
 
     Dispatcher class >> instance [
         <category: 'singleton'>
-        ^ Smalltalk at: #OsmoDispatcher ifAbsentPut: [Dispatcher new].
+        ^ Smalltalk at: #OsmoDispatcher ifAbsent: [self install].
     ]
 
     Dispatcher class >> new [

Tests.st

@@ -30,6 +30,10 @@ TestCase subclass: DispatcherTest [
         OsmoDispatcher dispatchBlock: [sem signal].
         self assert: sem signals = 1.
     ]
+
+    testSameDispatcher[
+        self assert: Dispatcher instance == Dispatcher instance
+    ]
 ]
 
 TestCase subclass: TimerSchedulerTest [

changes_for_pharo.st

@@ -49,6 +49,6 @@ TimerScheduler extend [
 
 Dispatcher class extend [
     initialize [
-        ^ self instance
+        self instance
     ]
 ]