SmalltalkLanguage.st
changeset 18925 84de2435046a
parent 18874 10019643078f
child 18930 59e70e261e49
child 19855 4f47086ba17e
--- a/SmalltalkLanguage.st	Thu Nov 19 15:22:51 2015 +0100
+++ b/SmalltalkLanguage.st	Thu Nov 19 15:35:22 2015 +0100
@@ -126,11 +126,12 @@
      as 'Smalltalk language' is used by legacy code to access
      the current language setting. 
      Future versions should contain class Locale.
+     cg: this is crab, who needs this?
     "
     <resource: #obsolete>
 
     self obsoleteMethodWarning.
-    ^ Language , anObject
+    ^ Smalltalk language , anObject
 
     "Created: / 22-08-2009 / 09:33:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
     "Modified (comment): / 01-04-2012 / 13:19:28 / cg"
@@ -141,11 +142,12 @@
      as Smalltalk language is used by legacy code to access
      current language. Future versions should contain class
      Locale.
+     cg: this is crab, who needs this?
     "
     <resource: #obsolete>
 
     self obsoleteMethodWarning.
-    ^ Language
+    ^ Smalltalk language
 
     "Created: / 22-08-2009 / 09:33:16 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !