--- a/VersionInfo.st	Fri Nov 18 16:04:51 2016 +0100
+++ b/VersionInfo.st	Fri Nov 18 16:04:52 2016 +0100
@@ -14,7 +14,7 @@
 "{ NameSpace: Smalltalk }"
 
 Object subclass:#VersionInfo
-	instanceVariableNames:'revision binaryRevision user timestamp date time fileName'
+	instanceVariableNames:'revision binaryRevision user timestamp date time fileName state'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-SourceCodeManagement'
@@ -188,6 +188,14 @@
     revision := something.
 !
 
+state
+    ^ state
+!
+
+state:something
+    state := something.
+!
+
 symbolicVersionName
     "iff that source code manager uses cryptic names for versions,
      (eg. dbManager, git and hg managers), we may add an additional symbolic