diff --git a/editions/test/tiddlers/tests/data/transclude/Procedures-Whitespace.tid b/editions/test/tiddlers/tests/data/transclude/Procedures-Whitespace.tid
new file mode 100644
index 000000000..d2bded70c
--- /dev/null
+++ b/editions/test/tiddlers/tests/data/transclude/Procedures-Whitespace.tid
@@ -0,0 +1,25 @@
+title: Transclude/Procedures/Whitespace
+description: Procedures should inherit whitespace settings from definition site
+type: text/vnd.tiddlywiki-multiple
+tags: [[$:/tags/wiki-test-spec]]
+
+title: Output
+
+\whitespace trim
+\procedure testproc()
+This is a sentence    
+\end
+
+\define testmacro()
+This is a sentence    
+\end
+This is a sentence
+[<<testproc>>]
+[<<testmacro>>]
+
++
+title: ExpectedResult
+
+<p>This is a sentence
+[This is a sentence]
+[This is a sentence    ]</p>
\ No newline at end of file
diff --git a/plugins/tiddlywiki/internals/editpreviews/parse-tree.tid b/plugins/tiddlywiki/internals/editpreviews/parse-tree.tid
index 97da36a40..995c26983 100644
--- a/plugins/tiddlywiki/internals/editpreviews/parse-tree.tid
+++ b/plugins/tiddlywiki/internals/editpreviews/parse-tree.tid
@@ -3,6 +3,8 @@ tags: $:/tags/EditPreview
 list-after: $:/core/ui/EditTemplate/body/preview/output
 caption: parse tree
 
+\whitespace trim
+
 \procedure preview-node-properties(node)
 <$let excludeProperties="text type tag children attributes orderedAttributes">
 <$list filter="[<node>jsonindexes[]] -[subfilter<excludeProperties>] +[limit[1]]" variable="ignore">
@@ -33,7 +35,6 @@ caption: parse tree
 \end
 
 \procedure preview-node-attribute-macro(attribute)
-\whitespace trim
 &lt;&lt;
 <$text text={{{ [<attribute>jsonget[value],[name]] }}}/>
 <$list filter="[<attribute>jsonindexes[value],[params]]" variable="index">