diff --git a/src/Markdeep/LePage.extension.st b/src/Markdeep/LePage.extension.st
index 23ad9ce..462ebb9 100644
--- a/src/Markdeep/LePage.extension.st
+++ b/src/Markdeep/LePage.extension.st
@@ -42,3 +42,11 @@ LePage >> markdeepFileName [
 	sanitized := self title asDashedLowercase copyWithoutAll: #($/). 
 	^ sanitized, '--',(self uidString copyFrom: 1 to: 5), '.md.html'.
 ]
+
+{ #category : #'*Markdeep' }
+LePage >> preorderTraversal [
+	| output |
+	output := OrderedCollection new.
+	self withDeepCollect: [:each | each allChildrenBreadthFirstDo: [:child | output add: child ] ].
+	^ output.
+]