diff --git a/RELEASE_NOTES.md b/RELEASE_NOTES.md
index 5f64aad..710e61e 100644
--- a/RELEASE_NOTES.md
+++ b/RELEASE_NOTES.md
@@ -1,6 +1,6 @@
 # Release Notes
 
-## 1.4.15 - 2019-06-28
+## 1.4.16 - 2019-06-28
 * Update deps
 * Use --self-contained for Firmware
 * Hook into view
diff --git a/src/Client/ReleaseNotes.fs b/src/Client/ReleaseNotes.fs
index 59cbeac..b7342f0 100644
--- a/src/Client/ReleaseNotes.fs
+++ b/src/Client/ReleaseNotes.fs
@@ -1,13 +1,13 @@
 module internal ReleaseNotes
 
-let Version = "1.4.15"
+let Version = "1.4.16"
 
 let IsPrerelease = false
 
 let Notes = """
 # Release Notes
 
-## 1.4.15 - 2019-06-28
+## 1.4.16 - 2019-06-28
 * Update deps
 * Use --self-contained for Firmware
 * Hook into view
diff --git a/src/PiServer/Elmish.Audio.fs b/src/PiServer/Elmish.Audio.fs
index 86be690..b9ef2a1 100644
--- a/src/PiServer/Elmish.Audio.fs
+++ b/src/PiServer/Elmish.Audio.fs
@@ -74,8 +74,8 @@ module Program =
                     with _ -> ()
         }
 
-        let mapView view model dispatch =
-            let (v:Audio) = view model dispatch
+        let mapSetState setState model dispatch =
+            let (v:Audio) = Program.view program model dispatch
             match lastView with
             | Some r when r = v -> ()
             | Some r ->
@@ -96,7 +96,7 @@ module Program =
                 | _ -> ()
 
             lastView <- Some v
-            v
+            setState model dispatch
 
         program
-        |> Program.map id id mapView id id
+        |> Program.map id id id mapSetState id