diff --git a/repository/TiddlyWiki/Tiddler.class.st b/repository/TiddlyWiki/Tiddler.class.st
index 0ce89a9..a040b07 100644
--- a/repository/TiddlyWiki/Tiddler.class.st
+++ b/repository/TiddlyWiki/Tiddler.class.st
@@ -153,6 +153,11 @@ Tiddler >> createdReversableEncoded [
 	^ output contents
 ]
 
+{ #category : #accessing }
+Tiddler >> creationTime [
+	^ ZTimestamp fromString: self created
+]
+
 { #category : #accessing }
 Tiddler >> creator [
 
diff --git a/repository/TiddlyWiki/TiddlyWiki.class.st b/repository/TiddlyWiki/TiddlyWiki.class.st
index 6b41794..d5b0b01 100644
--- a/repository/TiddlyWiki/TiddlyWiki.class.st
+++ b/repository/TiddlyWiki/TiddlyWiki.class.st
@@ -626,7 +626,7 @@ TiddlyWiki >> networkView [
 
 { #category : #accessing }
 TiddlyWiki >> networkViewBackground [
-	^ self config at: 'networkView' at: 'background' ifAbsentPut: [Color lightGray]
+	^ self config at: 'networkView' at: 'background' ifAbsentPut: [Color lightOrange]
 ]
 
 { #category : #accessing }
@@ -644,6 +644,25 @@ TiddlyWiki >> networkViewForeground: aColor [
 	self config at: 'networkView' at: 'foreground' put: aColor.
 ]
 
+{ #category : #accessing }
+TiddlyWiki >> networkViewHighlightingCreatedAfter: aDate [
+	| view |
+	view := GtMondrian new.
+	view nodes
+		stencil: [ :each | 
+			| color  size |
+			color := (each creationTime > (ZTimestamp fromString: aDate) )
+					ifTrue: [ self networkViewForeground ]
+					ifFalse: [ self networkViewBackground ].
+			size := 5 @ 5.
+			BlElement new background: color; size: size ];
+		with: self tiddlers.
+	view edges
+		connectToAll: #linkedTiddlers.
+	view layout force.
+	^ view
+]
+
 { #category : #accessing }
 TiddlyWiki >> networkViewHighlightingCreator: creatorName [
 	| view |
@@ -651,7 +670,7 @@ TiddlyWiki >> networkViewHighlightingCreator: creatorName [
 	view nodes
 		stencil: [ :each | 
 			| color  size |
-			color := (each creator = creatorName)
+			color := (each creator isNotNil and: [each creator trimBoth = creatorName])
 					ifTrue: [ self networkViewForeground ]
 					ifFalse: [ self networkViewBackground ].
 			size := 5 @ 5.