--- a/ApplicationModel.st	Wed Nov 23 14:12:58 2016 +0100
+++ b/ApplicationModel.st	Fri Nov 25 10:40:49 2016 +0100
@@ -4014,7 +4014,19 @@
      We use the resources as default.
      Subclasses may redefine this to use another mechanism"
 
-    ^ self resources string:aString
+    ^ self resources stringWithCRs:aString
+
+    "Modified: / 25-11-2016 / 09:56:11 / cg"
+!
+
+translateString:aString with:anArgument
+    "translate aString to the current language.
+     We use the resources as default.
+     Subclasses may redefine this to use another mechanism"
+
+    ^ self resources stringWithCRs:aString with:anArgument
+
+    "Created: / 25-11-2016 / 09:54:32 / cg"
 ! !
 
 !ApplicationModel methodsFor:'user interaction & notifications'!
@@ -4028,12 +4040,31 @@
 !
 
 information:aString
-    "like Objects information, but translates the string via the
+    "like Object's information, but translates the string via the
+     resourcePack, thus giving a translated string automatically"
+
+    super information:(self translateString:aString)
+
+    "Created: / 20-05-1998 / 03:48:43 / cg"
+    "Modified: / 25-11-2016 / 09:55:53 / cg"
+!
+
+informationTranslated:aString
+    "like Object's information, but translates the string via the
      resourcePack, thus giving a translated string automatically"
 
-    super information:(self translateString:aString) withCRs
-
-    "Created: / 20.5.1998 / 03:48:43 / cg"
+    self information:(self translateString:aString)
+
+    "Created: / 25-11-2016 / 09:59:47 / cg"
+!
+
+informationTranslated:aString with:anArgument
+    "like Object's information, but translates the string via the
+     resourcePack, thus giving a translated string automatically"
+
+    self information:(self translateString:aString with:anArgument)
+
+    "Created: / 25-11-2016 / 10:01:32 / cg"
 !
 
 notify:aString