--- a/ApplicationModel.st	Thu May 31 08:45:02 2018 +0200
+++ b/ApplicationModel.st	Fri Jun 01 13:10:23 2018 +0200
@@ -4136,10 +4136,22 @@
     "like Object's information, but translates the string via the
      resourcePack, thus giving a translated string automatically"
 
-    super information:(self translateString:aString)
+    self information:aString translate:true
 
     "Created: / 20-05-1998 / 03:48:43 / cg"
     "Modified: / 25-11-2016 / 09:55:53 / cg"
+    "Modified: / 01-06-2018 / 12:51:23 / Claus Gittinger"
+!
+
+information:aString translate:aBoolean
+    "like Object's information, but translates the string via the
+     resourcePack, thus giving a translated string automatically"
+
+    super information:(aBoolean
+                    ifTrue:[ (self translateString:aString) withCRs ]
+                    ifFalse:[ aString ])
+
+    "Created: / 01-06-2018 / 12:51:06 / Claus Gittinger"
 !
 
 informationTranslated:aString