--- a/VariableNode.st	Tue Apr 24 18:33:38 2018 +0200
+++ b/VariableNode.st	Tue May 01 11:38:33 2018 +0200
@@ -343,12 +343,13 @@
         ]
     ].
 
-    "/ anything else must be pushed, then top rturned
+    "/ anything else must be pushed, then top returned
 
     self codeOn:aStream inBlock:b for:aCompiler.
     aStream nextPut:#retTop
 
     "Modified: / 06-08-2006 / 22:59:28 / cg"
+    "Modified (comment): / 25-01-2018 / 19:26:46 / mawalch"
 !
 
 codeLoadOn:aStream type:type index:index inBlock:codeBlock for:aCompiler
@@ -489,7 +490,7 @@
     ].
 
     (type == #GlobalVariable) ifTrue:[
-        "for browsing, we put it into the literal-array; even if its a specal global"
+        "for browsing, we put it into the literal-array; even if it's a specal global"
         litIndex := aCompiler addLiteral:name asSymbol.
         specialGlobalIndex := aCompiler specialGlobalCodeFor:name.
         specialGlobalIndex notNil ifTrue:[
@@ -560,8 +561,9 @@
     "not reached"
     self error:'bad type'.
 
-    "Created: / 25.6.1997 / 16:14:17 / cg"
-    "Modified: / 17.1.1998 / 04:04:17 / cg"
+    "Created: / 25-06-1997 / 16:14:17 / cg"
+    "Modified: / 17-01-1998 / 04:04:17 / cg"
+    "Modified (format): / 13-02-2017 / 20:34:16 / cg"
 !
 
 codeOn:aStream inBlock:codeBlock for:aCompiler
@@ -972,7 +974,7 @@
      (although the fallBack is to display its printString ...)"
 
     "/ what a kludge - Dolphin and Squeak mean: printOn: a stream;
-    "/ ST/X (and some old ST80's) mean: draw-yourself on a GC.
+    "/ old ST80 means: draw-yourself on a GC.
     aGCOrStream isStream ifFalse:[
         ^ super displayOn:aGCOrStream.
     ].
@@ -982,6 +984,8 @@
         nextPut:$(.
     self printOn:aGCOrStream. 
     aGCOrStream nextPut:$)
+
+    "Modified (comment): / 22-02-2017 / 16:49:57 / cg"
 !
 
 printOn:aStream indent:i