diff --git a/src/Text/Pandoc/Writers/Typst.hs b/src/Text/Pandoc/Writers/Typst.hs
index 245d0ec87..ed884d588 100644
--- a/src/Text/Pandoc/Writers/Typst.hs
+++ b/src/Text/Pandoc/Writers/Typst.hs
@@ -325,7 +325,7 @@ inlineToTypst inline =
     SmallCaps inlines -> textstyle "#smallcaps" inlines
     Span (ident,_,_) inlines -> do
       let lab = toLabel FreestandingLabel ident
-      (lab $$) <$> inlinesToTypst inlines
+      (<> lab) <$> inlinesToTypst inlines
     Quoted quoteType inlines -> do
       let q = case quoteType of
                    DoubleQuote -> literal "\""