--- a/InfoBox.st	Sun Aug 26 17:10:26 2018 +0200
+++ b/InfoBox.st	Sun Aug 26 19:18:25 2018 +0200
@@ -363,14 +363,10 @@
     shown ifTrue:[self resize]
 !
 
-label:aString
-    "sigh: the old name for the windowTitle was label here,
-     and the contents was called title.
-     Squeak expects label to access the title"
-     
-    self title:aString
+label
+    ^ textLabel label
 
-    "Created: / 26-08-2018 / 17:04:25 / Claus Gittinger"
+    "Created: / 26-08-2018 / 17:12:50 / Claus Gittinger"
 !
 
 textLabel
@@ -381,15 +377,21 @@
 
 title
     "return 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"
 
-    ^ textLabel label
+    ^ self label
 
     "Created: / 22-12-2010 / 19:27:43 / cg"
-    "Modified (comment): / 26-08-2018 / 17:03:23 / Claus Gittinger"
+    "Modified (comment): / 26-08-2018 / 18:11:29 / Claus Gittinger"
 !
 
 title:aString
-    "set the boxes label string"
+    "return 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"
 
     aString ~= textLabel label ifTrue:[
         textLabel label:aString.
@@ -399,16 +401,19 @@
         shown ifTrue:[self resize]
     ]
 
-    "Created: / 22-12-2010 / 19:27:16 / cg"
+    "Created: / 26-08-2018 / 18:21:08 / Claus Gittinger"
 !
 
-title:windowTitleString label:labelString
+title:labelString label:windowTitleString
     "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"
 
-    super label:windowTitleString.
+    self windowTitle:windowTitleString.
     self title:labelString.
 
-    "Modified: / 26-08-2018 / 17:04:04 / Claus Gittinger"
+    "Modified: / 26-08-2018 / 18:25:47 / Claus Gittinger"
 !
 
 windowTitle