1 files changed, 1 insertions, 1 deletions
diff --git a/src/r1.bqn b/src/r1.bqn
index 0aadb95b..1175a655 100644
--- a/src/r1.bqn
+++ b/src/r1.bqn
@@ -525,7 +525,7 @@ _takeDrop←{
     l←𝕨p◶⟨0⌈+,⌊⟩≠𝕩
     F←𝕩{(Fill𝕗)˙⌜↕𝕩}
     k←1⋄S←⊢ ⋄ 𝕨⊸{k×´↩c←1 Cell𝕩 ⋄ S↩(⟨(0⌈(≠𝕩)-⊢)⍟(1-take)|𝕨⟩∾c)⊸⥊}⍟(1<=) 𝕩
-    S ((|∘𝕨-≠){𝕩p◶⟨∾˜,∾⟩F𝕨×k}⍟(>⟜0)⊢)⍟take (l×k) (take=p)◶↓‿↑ ⥊𝕩
+    S ((|∘𝕨-≠∘𝕩){𝕩p◶⟨∾˜,∾⟩F𝕨×k}⍟(>⟜0)⊢)⍟take (l×k) (take=p)◶↓‿↑ ⥊𝕩
   }‿{
     ernk ! 1≥=𝕨
     𝕨 ↩ ⥊𝕨