--- a/VersionInfo.st	Tue Mar 12 11:52:22 2019 +0100
+++ b/VersionInfo.st	Tue Mar 12 11:52:43 2019 +0100
@@ -140,10 +140,6 @@
     date := something.
 !
 
-day
-    ^ date
-!
-
 fileName
     ^ fileName
 !
@@ -173,6 +169,25 @@
     logMessage := aString.
 !
 
+loggedReason
+    "Answer the reason for the change extracted from the log message
+     or empty string if unknown."
+
+    |log|
+
+    logMessage size < 2 ifTrue:[
+        ^ ''.
+    ].
+    log := logMessage withoutSeparators.
+    (log startsWith:$#) ifFalse:[
+        ^ ''.
+    ].
+
+    ^ log readStream nextAlphaNumericWord ? ''.
+
+    "Created: / 12-03-2019 / 11:36:04 / Stefan Vogel"
+!
+
 majorVersion
     |v|