--- a/PrimaryNode.st	Wed Nov 24 10:54:24 2021 +0100
+++ b/PrimaryNode.st	Wed Nov 24 10:56:33 2021 +0100
@@ -1,5 +1,6 @@
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
+ COPYRIGHT (c) 2021 Patrik Svestka
 	      All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -25,6 +26,7 @@
 copyright
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
+ COPYRIGHT (c) 2021 Patrik Svestka
 	      All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -66,6 +68,15 @@
     line := something.
 !
 
+lineNumber
+
+    "Compatibility"
+
+    ^ self line
+
+    "Created: / 24-11-2021 / 10:02:30 / Patrik Svestka <patrik.svestka@gmail.com>"
+!
+
 type:t value:val
     type := t.
     value := val
@@ -173,6 +184,11 @@
     ^ '$Header$'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$ Id $'
 ! !