--- a/ConstantNode.st	Sun Dec 01 05:31:53 2019 +0100
+++ b/ConstantNode.st	Sun Dec 01 13:01:44 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -182,6 +184,9 @@
 !
 
 radix
+    "the constant's original radix;
+     remembered so that we can prettyprint it later in the same radix"
+
     value isInteger ifFalse:[
         self error.
         ^ nil.
@@ -201,7 +206,6 @@
     (originalString startsWith:'0b') ifTrue:[^ 2].
     (originalString startsWith:'0o') ifTrue:[^ 8].
     ^ 10
-
 ! !
 
 !ConstantNode methodsFor:'code generation'!