diff --git a/src/NewTools-WindowManager/SpClosedWindowListPresenter.class.st b/src/NewTools-WindowManager/SpClosedWindowListPresenter.class.st
index a7ac211f..37c1fc17 100644
--- a/src/NewTools-WindowManager/SpClosedWindowListPresenter.class.st
+++ b/src/NewTools-WindowManager/SpClosedWindowListPresenter.class.st
@@ -91,8 +91,10 @@ SpClosedWindowListPresenter >> addClosedWindow: aModel [
 	self lastClosedWindows size >= 5 ifTrue: [
 		self lastClosedWindows removeLast close ].
 	aModel labelString = 'Last Closed Windows' ifFalse: [
-		self lastClosedWindows addFirst: aModel ].
+		self lastClosedWindows addFirst: aModel.
+  	aModel setProperty: #isClosed toValue: true ].
 	self refresh
+
 ]
 
 { #category : 'initialization' }
@@ -131,7 +133,7 @@ SpClosedWindowListPresenter >> defaultLayout [
 SpClosedWindowListPresenter >> initialize [
 
 	super initialize.
-	self unsubscribeFromWindowEvents .
+	self unsubscribeFromWindowEvents.
 	self subscribeToWindowClosedAnnoucements.
 	removeItemBlock := [ :item |
 	                   item ifNotNil: [
@@ -140,6 +142,7 @@ SpClosedWindowListPresenter >> initialize [
 		                   self refresh ] ].
 	unhideItemBlock := [ :item |
 	                   item ifNotNil: [ item visible: true ].
+	                   item removeProperty: #isClosed.
 	                   self items remove: item.
 	                   self refresh ]
 ]