diff --git a/repository/TiddlyWiki/OrderedDictionary.extension.st b/repository/TiddlyWiki/OrderedDictionary.extension.st
new file mode 100644
index 0000000..5882164
--- /dev/null
+++ b/repository/TiddlyWiki/OrderedDictionary.extension.st
@@ -0,0 +1,13 @@
+Extension { #name : #OrderedDictionary }
+
+{ #category : #'*TiddlyWiki' }
+OrderedDictionary >> asTiddler [
+	| tiddlerFields response |
+	response := Tiddler new.
+	tiddlerFields := response class slotNames copyWithoutAll:  #('wiki' 'customFields').
+	self keysAndValuesDo: [ :key :value |
+		(tiddlerFields includes: key)
+			ifTrue: [ response writeSlotNamed: key value: value ]
+	].
+	^ response
+]