From 6a3c0332b346cd03387ab189ccff68abbdfe390d Mon Sep 17 00:00:00 2001
From: Offray Luna <offray.luna@mutabit.com>
Date: Fri, 20 Oct 2023 18:37:51 -0500
Subject: [PATCH] Fixing historical traceability for migrated documents with
 nil values.

---
 src/MiniDocs/LeDatabase.extension.st        | 6 +++---
 src/MiniDocs/OrderedDictionary.extension.st | 4 ++--
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/MiniDocs/LeDatabase.extension.st b/src/MiniDocs/LeDatabase.extension.st
index 3c29a07..9cc1035 100644
--- a/src/MiniDocs/LeDatabase.extension.st
+++ b/src/MiniDocs/LeDatabase.extension.st
@@ -35,10 +35,10 @@ LeDatabase >> addPageFromMarkdeep: markdeepDocTree withRemote: externalDocLocati
 			latestEditTime: (LeTime new time: (remoteMetadata at: 'modified') asDateAndTime);
 			createEmail: (remoteMetadata at: 'creator');
 			editEmail: (remoteMetadata at: 'modifier').
-	snippets do: [ :snippet | | currentParent |
+	snippets do: [ :snippet | "| currentParent |"
 		page addSnippet: snippet.
-		currentParent := page detectParentSnippetWithUid: (snippet metadata at: 'parent').
-		snippet parent: currentParent.
+		"currentParent := page detectParentSnippetWithUid: (snippet metadata at: 'parent').
+		snippet parent: currentParent."
 	].
 	page children
 		do: [ :snippet | 
diff --git a/src/MiniDocs/OrderedDictionary.extension.st b/src/MiniDocs/OrderedDictionary.extension.st
index 5454996..fca93a2 100644
--- a/src/MiniDocs/OrderedDictionary.extension.st
+++ b/src/MiniDocs/OrderedDictionary.extension.st
@@ -26,8 +26,8 @@ OrderedDictionary >> asLepiterSnippet [
 		editTime: (LeTime new time: ((self at: 'modified') asDateAndTime));
 		editEmail: (self at: 'modifier');
 		createEmail: (self at: 'creator').	
-	response metadata at: 'origin' ifPresent: [ response metadata at: 'origin' put: (self at: 'origin') ].
-	response metadata at: 'errata' ifPresent: [ response metadata at: 'errata' put: (self at: 'errata') ].
+	self at: 'origin' ifPresent: [ response metadata at: 'origin' put: (self at: 'origin') ].
+	self at: 'errata' ifPresent: [ response metadata at: 'errata' put: (self at: 'errata') ].
 	^ response
 ]