diff --git a/RoloLudo.package/SfOracle.class/instance/asTiddler.st b/RoloLudo.package/SfOracle.class/instance/asTiddler.st
index 14777ce..2bf22eb 100644
--- a/RoloLudo.package/SfOracle.class/instance/asTiddler.st
+++ b/RoloLudo.package/SfOracle.class/instance/asTiddler.st
@@ -3,5 +3,5 @@ asTiddler
 	^ Tiddler new
 		title: self name;
 		tags: 'Starforged';
-		text: self intro, String lf, String lf, self optionsWikiTextTable;
+		text: self introText, String cr, String cr, self optionsWikiTextTable;
 		created: DateAndTime now asString.
\ No newline at end of file
diff --git a/RoloLudo.package/SfOracle.class/instance/fromDictionary..st b/RoloLudo.package/SfOracle.class/instance/fromDictionary..st
index 6ee54c1..c4e407a 100644
--- a/RoloLudo.package/SfOracle.class/instance/fromDictionary..st
+++ b/RoloLudo.package/SfOracle.class/instance/fromDictionary..st
@@ -1,7 +1,7 @@
 accessing
 fromDictionary: aDictionary
 	| optionsTable |
-	name := aDictionary at: 'Name'.
+	name := aDictionary at: 'Name' ifAbsent: [ name := aDictionary at: 'Display name' ]. 
 	optionsTable := aDictionary at: 'Table'.
 	optionsTable doWithIndex: [:opt :i | | key value prevKey | 
 		(i = 1) 
diff --git a/RoloLudo.package/SfOracle.class/instance/introText.st b/RoloLudo.package/SfOracle.class/instance/introText.st
new file mode 100644
index 0000000..5ba6885
--- /dev/null
+++ b/RoloLudo.package/SfOracle.class/instance/introText.st
@@ -0,0 +1,3 @@
+accessing
+introText
+	^ self intro ifNil: [ ^ '' ]
\ No newline at end of file
diff --git a/RoloLudo.package/SfOracle.class/instance/optionsWikiTextTable.st b/RoloLudo.package/SfOracle.class/instance/optionsWikiTextTable.st
index d55cc07..7b2deaf 100644
--- a/RoloLudo.package/SfOracle.class/instance/optionsWikiTextTable.st
+++ b/RoloLudo.package/SfOracle.class/instance/optionsWikiTextTable.st
@@ -2,9 +2,10 @@ accessing
 optionsWikiTextTable
 	| output |
 	output := '' writeStream.
-	self options keysAndValuesDo: [:k :v |
+	self options keysAndValuesDo: [:k :v | | keyString |
+		keyString := ((k size = 1) ifTrue: [ k first asString ] ifFalse: [ k first asString, ' - ', k last asString ]).
 		output
-			nextPutAll: '| ', k first asString, ' - ', k last asString, ' |';
+			nextPutAll: '| ',keyString , ' |';
 			nextPutAll: v, ' |'; cr
 	].
 	^ output contents
\ No newline at end of file