diff --git a/packages/Babylonian-UI.package/BPAssertionValuesMorph.class/instance/addValues.st b/packages/Babylonian-UI.package/BPAssertionValuesMorph.class/instance/addValues.st
index e78ceab8..1dfee0f5 100644
--- a/packages/Babylonian-UI.package/BPAssertionValuesMorph.class/instance/addValues.st
+++ b/packages/Babylonian-UI.package/BPAssertionValuesMorph.class/instance/addValues.st
@@ -2,7 +2,9 @@ ui
 addValues
 	
 	values collect: [:result |
-					(result tracedValue 
+					((result tracedValue 
 						ifTrue: [ToolIcons testGreen] 
-						ifFalse: [ToolIcons testOrange]) asMorph]
+						ifFalse: [ToolIcons testOrange]) 
+							scaledToSize: BPAnnotationMorph fontHeight)
+								asMorph]
 			thenDo: [:iconMorph |  self addMorphBack: iconMorph].
\ No newline at end of file
diff --git a/packages/Babylonian-UI.package/BPAssertionValuesMorph.class/methodProperties.json b/packages/Babylonian-UI.package/BPAssertionValuesMorph.class/methodProperties.json
index cf298757..e910fbba 100644
--- a/packages/Babylonian-UI.package/BPAssertionValuesMorph.class/methodProperties.json
+++ b/packages/Babylonian-UI.package/BPAssertionValuesMorph.class/methodProperties.json
@@ -2,5 +2,5 @@
 	"class" : {
 		 },
 	"instance" : {
-		"addValues" : "joabe 7/1/2023 16:11",
+		"addValues" : "pre 3/8/2024 17:30",
 		"basicValuesFor:" : "joabe 7/1/2023 16:07" } }