diff --git a/Iceberg-TipUI/IceTipVersionHistoryModel.class.st b/Iceberg-TipUI/IceTipVersionHistoryModel.class.st
index 8ecaaa2c7d..97d9227f61 100644
--- a/Iceberg-TipUI/IceTipVersionHistoryModel.class.st
+++ b/Iceberg-TipUI/IceTipVersionHistoryModel.class.st
@@ -42,9 +42,11 @@ IceTipVersionHistoryModel >> name [
 
 { #category : 'private' }
 IceTipVersionHistoryModel >> retrieveHistory [
+	| history |
 
 	self repositoryModel checkMissing.
 	self application 
 		informUser: ('Retrieving history of {1}' format: { self entity printString }) 
-		during: [ self repositoryModel entity log historyOfMethod: self entity ]
+		during: [ history := self repositoryModel entity log historyOfMethod: self entity ].
+	^ history
 ]