diff --git a/src/Glamour-Morphic-Brick/GLMPopupBrickCloser.class.st b/src/Glamour-Morphic-Brick/GLMPopupBrickCloser.class.st
index 5684b432c2f..98704bca29d 100644
--- a/src/Glamour-Morphic-Brick/GLMPopupBrickCloser.class.st
+++ b/src/Glamour-Morphic-Brick/GLMPopupBrickCloser.class.st
@@ -9,5 +9,5 @@ Class {
 
 { #category : #action }
 GLMPopupBrickCloser >> act [
-	self popup close
+	self popup ifNotNil: [ :thePopup | thePopup close ]
 ]