--- a/InfoBox.st	Sun Nov 24 16:17:37 2019 +0100
+++ b/InfoBox.st	Mon Nov 25 12:15:05 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -361,12 +363,6 @@
     shown ifTrue:[self resize]
 !
 
-label
-    ^ textLabel label
-
-    "Created: / 26-08-2018 / 17:12:50 / Claus Gittinger"
-!
-
 textLabel
     "return the textLabel = can be used to change its appearance"
 
@@ -379,14 +375,14 @@
      and the contents was called title.
      Squeak expects label to access the title"
 
-    ^ self label
+    ^ textLabel label
 
     "Created: / 22-12-2010 / 19:27:43 / cg"
     "Modified (comment): / 26-08-2018 / 18:11:29 / Claus Gittinger"
 !
 
 title:aString
-    "return the boxes label string"
+    "set the boxes label string"
     "sigh: the old name for the windowTitle was label here,
      and the contents was called title.
      Squeak expects label to access the title"
@@ -412,6 +408,12 @@
     self title:labelString.
 
     "Modified: / 26-08-2018 / 18:25:47 / Claus Gittinger"
+!
+
+xxlabel
+    ^ textLabel label
+
+    "Created: / 26-08-2018 / 17:12:50 / Claus Gittinger"
 ! !
 
 !InfoBox methodsFor:'initialization'!