--- a/InfoBox.st	Sun Aug 26 17:10:16 2018 +0200
+++ b/InfoBox.st	Sun Aug 26 17:10:26 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -361,6 +363,16 @@
     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
+
+    "Created: / 26-08-2018 / 17:04:25 / Claus Gittinger"
+!
+
 textLabel
     "return the textLabel = can be used to change its appearance"
 
@@ -368,11 +380,12 @@
 !
 
 title
-    "return the boxes title string"
+    "return the boxes label string"
 
     ^ textLabel label
 
     "Created: / 22-12-2010 / 19:27:43 / cg"
+    "Modified (comment): / 26-08-2018 / 17:03:23 / Claus Gittinger"
 !
 
 title:aString
@@ -389,11 +402,27 @@
     "Created: / 22-12-2010 / 19:27:16 / cg"
 !
 
-title:aString label:windowLabel
+title:windowTitleString label:labelString
     "set the boxes label string"
 
-    self label:windowLabel.
-    self title:aString.
+    super label:windowTitleString.
+    self title:labelString.
+
+    "Modified: / 26-08-2018 / 17:04:04 / Claus Gittinger"
+!
+
+windowTitle
+    ^ super label
+
+    "Created: / 26-08-2018 / 17:03:56 / Claus Gittinger"
+!
+
+windowTitle:windowTitleString
+    "set the boxes window title string"
+
+    super label:windowTitleString.
+
+    "Created: / 26-08-2018 / 17:01:23 / Claus Gittinger"
 ! !
 
 !InfoBox methodsFor:'initialization'!