1 files changed, 2 insertions, 0 deletions

diff --git a/bbcode/src/Text/BBCode.hs b/bbcode/src/Text/BBCode.hs
index f3c9ca2..d0c9974 100644
--- a/bbcode/src/Text/BBCode.hs
+++ b/bbcode/src/Text/BBCode.hs
@@ -127,6 +127,8 @@ rose = fmap Z.toForest . checkClosure <=< foldM (flip rose') (Z.fromForest [])
                      siblingsAsPars
                        | all isPar siblings = Right z
                        | Z.isRoot z         = Right . Z.fromForest $ [Node BBPar siblings]
+                       | (Just p) <- Z.parent z 
+                       , BBPar <- Z.label p = Right . Z.nextSpace $ p
                        | otherwise          = Left ParagraphWithinTag
                  in Z.children . Z.insert (Node BBPar []) . Z.last <$> siblingsAsPars