diff --git a/src/Spec2-Dialogs/SpAbstractMessageDialog.class.st b/src/Spec2-Dialogs/SpAbstractMessageDialog.class.st
index 8b41e2f0..84e43014 100644
--- a/src/Spec2-Dialogs/SpAbstractMessageDialog.class.st
+++ b/src/Spec2-Dialogs/SpAbstractMessageDialog.class.st
@@ -124,6 +124,11 @@ SpAbstractMessageDialog >> initializeWindow: aWindowPresenter [
 		initialExtent: self extent
 ]
 
+{ #category : 'api' }
+SpAbstractMessageDialog >> label [
+	^ label text
+]
+
 { #category : 'api' }
 SpAbstractMessageDialog >> label: aString [