--- a/SelfNode.st	Wed Feb 22 19:10:04 2017 +0100
+++ b/SelfNode.st	Wed Feb 22 19:10:05 2017 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libcomp' }"
 
+"{ NameSpace: Smalltalk }"
+
 PrimaryNode subclass:#SelfNode
 	instanceVariableNames:''
 	classVariableNames:''
@@ -118,13 +120,15 @@
      (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.
     ].
 
     aGCOrStream 
         nextPutAll:'InterpreterVariable(self)'.
+
+    "Modified (comment): / 22-02-2017 / 16:50:05 / cg"
 !
 
 printOn:aStream indent:i
@@ -155,9 +159,10 @@
 !SelfNode class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/SelfNode.st,v 1.22 2012-08-03 15:53:28 stefan Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/SelfNode.st,v 1.22 2012-08-03 15:53:28 stefan Exp $'
+    ^ '$Header$'
 ! !
+