diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,6 +1,9 @@
 # TidalCycles log of changes
 
-## 1.5.0 - 
+## 1.5.1 - Blacka Moor
+	* Bugfix splice
+
+## 1.5.0 - Active travel
 	* Export drawLineSz @mxmxyz
 	* tidal-parse additions (bite, splice, pickF, select, squeeze; fixed slice) @dktr0
 	* New, more efficient pseudorandom number generator @dktr0
diff --git a/src/Sound/Tidal/Control.hs b/src/Sound/Tidal/Control.hs
--- a/src/Sound/Tidal/Control.hs
+++ b/src/Sound/Tidal/Control.hs
@@ -263,11 +263,14 @@
 randslice :: Pattern Int -> ControlPattern -> ControlPattern
 randslice = tParam $ \n p -> innerJoin $ (\i -> _slice n i p) <$> irand n
 
-splice :: Pattern Int -> Pattern Int -> ControlPattern -> Pattern (Map.Map String Value)
-splice bits ipat pat = withEvent f (slice bits ipat pat) # P.unit (pure "c")
+_splice :: Int -> Pattern Int -> ControlPattern -> Pattern (Map.Map String Value)
+_splice bits ipat pat = withEvent f (slice (pure bits) ipat pat) # P.unit (pure "c")
   where f ev = ev {value = Map.insert "speed" (VF d) (value ev)}
           where d = sz / (fromRational $ (wholeStop ev) - (wholeStart ev))
                 sz = 1/(fromIntegral bits)
+
+splice :: Pattern Int -> Pattern Int -> ControlPattern -> Pattern (Map.Map String Value)
+splice bitpat ipat pat = innerJoin $ (\bits -> _splice bits ipat pat) <$> bitpat
 
 {- |
 `loopAt` makes a sample fit the given number of cycles. Internally, it
diff --git a/src/Sound/Tidal/Version.hs b/src/Sound/Tidal/Version.hs
--- a/src/Sound/Tidal/Version.hs
+++ b/src/Sound/Tidal/Version.hs
@@ -1,4 +1,4 @@
 module Sound.Tidal.Version where
 
 tidal_version :: String
-tidal_version = "1.5.0"
+tidal_version = "1.5.1"
diff --git a/test/Sound/Tidal/ControlTest.hs b/test/Sound/Tidal/ControlTest.hs
--- a/test/Sound/Tidal/ControlTest.hs
+++ b/test/Sound/Tidal/ControlTest.hs
@@ -21,3 +21,8 @@
           (filterOnsets $ stutWith 4 0.25 (# gain 1) $ sound "bd")
           (filterOnsets $ stut 4 1 0.25 $ sound "bd")
         
+    describe "splice" $ do
+      it "can beatslice" $ do
+        comparePD (Arc 0 1)
+          (splice "4 8" "0 1" $ sound "bev")
+          (begin "0 0.125" # end "0.25 0.25" # speed "0.5 0.25" # sound "bev" # unit "c")
diff --git a/tidal.cabal b/tidal.cabal
--- a/tidal.cabal
+++ b/tidal.cabal
@@ -1,5 +1,5 @@
 name:                tidal
-version:             1.5.0
+version:             1.5.1
 synopsis:            Pattern language for improvised music
 -- description:
 homepage:            http://tidalcycles.org/