1 files changed, 1 insertions, 1 deletions
diff --git a/src/r.bqn b/src/r.bqn
index 34d0dbf8..5132b453 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -423,7 +423,7 @@ GroupGen←{
   "𝕨⊔𝕩: Lengths of components of 𝕨 must be compatible with 𝕩" ! ∧´(Join≢⌜𝕨)=n↑≢𝕩
   l←≠⌜𝕨↩⥊⌜𝕨
   S←⊏⟜(𝕩⥊˜⟨×´l⟩∾n Cell 𝕩)
-  (1≠≠)◶(S _group 0⊸⊑)‿(S⌜ ·+⌜⌜´ (⌽×`⟨1⟩∾⌽1↓l) × ⊢_group⌜) 𝕨
+  (1≠≠)◶(S _group 0⊸⊑)‿(S⌜ ·+⌜⌜´ (⌽×`1»⌽l) × ⊢_group⌜) 𝕨
 }
 
 Pick1←{