diff --git a/packages/Babylonian-UI.package/CodeHolder.extension/instance/doAddAnnotation.in..st b/packages/Babylonian-UI.package/CodeHolder.extension/instance/doAddAnnotation.in..st
index 19f06976..2879bbc4 100644
--- a/packages/Babylonian-UI.package/CodeHolder.extension/instance/doAddAnnotation.in..st
+++ b/packages/Babylonian-UI.package/CodeHolder.extension/instance/doAddAnnotation.in..st
@@ -13,4 +13,4 @@ doAddAnnotation: anAnnotation in: interval
 			yourself)
 		from: actualInterval start
 		to: actualInterval stop.
-	(self codeTextMorph) addMorph: newMorph.
\ No newline at end of file
+	self codeTextMorph textMorph addMorph: newMorph.
\ No newline at end of file
diff --git a/packages/Babylonian-UI.package/CodeHolder.extension/methodProperties.json b/packages/Babylonian-UI.package/CodeHolder.extension/methodProperties.json
index 0e3c72e1..70532448 100644
--- a/packages/Babylonian-UI.package/CodeHolder.extension/methodProperties.json
+++ b/packages/Babylonian-UI.package/CodeHolder.extension/methodProperties.json
@@ -21,7 +21,7 @@
 		"determineIntervalToAnnotateFor:forNodes:" : "pre 9/1/2022 22:03",
 		"determineMessageSendNodeIn:" : "pre 9/2/2022 14:06",
 		"determineSelectorOfMessageSend:" : "pre 9/2/2022 14:49",
-		"doAddAnnotation:in:" : "pre 8/17/2023 11:48",
+		"doAddAnnotation:in:" : "pre 9/28/2023 13:58",
 		"doBrowseActualImplementersFromProbe:andSelector:" : "pre 9/2/2022 15:54",
 		"doItReceiver" : "ct 3/30/2022 16:48",
 		"exampleForEvaluation" : "ct 8/18/2021 23:15",