diff --git a/src/NewTools-MethodBrowsers/MessageListPresenter.class.st b/src/NewTools-MethodBrowsers/MessageListPresenter.class.st
index 0867e0876..b7869789e 100644
--- a/src/NewTools-MethodBrowsers/MessageListPresenter.class.st
+++ b/src/NewTools-MethodBrowsers/MessageListPresenter.class.st
@@ -36,6 +36,11 @@ MessageListPresenter class >> defaultLayout [
 		yourself
 ]
 
+{ #category : 'private' }
+MessageListPresenter >> authorOf: anItem [
+	^ anItem author
+]
+
 { #category : 'actions' }
 MessageListPresenter >> browseClassRefs [
 
@@ -183,6 +188,8 @@ MessageListPresenter >> initializePresenters [
 		addColumn: (SpStringTableColumn title: 'Location' evaluated: [ :item | self locationOf: item ]);
 		addColumn: (SpStringTableColumn title: 'Selector' evaluated: [ :item | self selectorOf: item ]);
 		addColumn: (SpStringTableColumn title: 'Package' evaluated: [ :item | self packageOf: item ]);
+		addColumn: (SpStringTableColumn title: 'Time' evaluated: [ :item | self timeStampOf: item ]);
+		addColumn: (SpStringTableColumn title: 'Author' evaluated: [ :item | self authorOf: item ]);
 		beResizable.
 		
 	listPresenter outputActivationPort transmitDo: [ :aMethod | self doBrowseMethod ].
@@ -376,6 +383,11 @@ MessageListPresenter >> sortingBlock: aBlock [
 	listPresenter sortingBlock: aBlock
 ]
 
+{ #category : 'private' }
+MessageListPresenter >> timeStampOf: anItem [
+	^ anItem timeStamp
+]
+
 { #category : 'accessing' }
 MessageListPresenter >> topologicSort [
 	^ topologySort