1 files changed, 1 insertions, 1 deletions
diff --git a/src/r.bqn b/src/r.bqn
index b45a5f50..5f51cfcf 100644
--- a/src/r.bqn
+++ b/src/r.bqn
@@ -671,7 +671,7 @@ GroupGen←{
   ld←(Join≢⌜𝕨)-n↑≢𝕩
   "𝕨⊔𝕩: Lengths of 𝕨 must equal to 𝕩, or one more only in a rank-1 component" ! 1∧´(0⊸≤∧≤⟜(r/1=r))ld
   dr←r⌊(0»+`r)⊏ld∾⟨0⟩
-  l←≠⌜𝕨↩⥊⌜𝕨 ⋄ LS←∾⟜(n Cell 𝕩) Reshape 𝕩˙
+  l←dr-˜≠⌜𝕨↩⥊⌜𝕨 ⋄ LS←∾⟜(n Cell 𝕩) Reshape 𝕩˙
   S←⊏⟜(LS⟨1×´l⟩)
   (LS 0⌜𝕨) Fill dr (1≠≠∘⊢)◶⟨S _group○(0⊸⊑), S⌜ ·+⌜⌜´ (⌽×`1»⌽l) × ⊢_group¨⟩ 𝕨
 }