--- a/ProgrammingLanguage.st	Thu Jun 23 16:55:10 2011 +0100
+++ b/ProgrammingLanguage.st	Thu Jul 07 23:08:07 2011 +0100
@@ -77,18 +77,11 @@
 forStream: aStream 
     "Answers a language for given source stream. If none is found,
      SmalltalkLanguage is returned (to provide backward compatibility)"
-
-    "JV: yet another kludge, sigh"
-    (aStream isKindOf: EncodedStream) 
-        ifTrue: [ ^ self forStream: aStream stream ].
-
-    aStream isFileStream 
-        ifFalse: [ ^ SmalltalkLanguage instance ].
-
+    
+    aStream isFileStream ifFalse: [ ^ SmalltalkLanguage instance ].
     ^ self forFile: aStream fileName
 
     "Created: / 16-08-2009 / 10:56:26 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified: / 25-02-2010 / 23:26:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 named: aString 
@@ -470,18 +463,12 @@
 
 !ProgrammingLanguage class methodsFor:'documentation'!
 
-version
-    ^ '$Id: ProgrammingLanguage.st 10643 2011-06-08 21:53:07Z vranyj1 $'
-!
-
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.14 2011/01/30 09:06:33 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.15 2011/06/28 18:17:38 vrany Exp §'
 !
 
 version_SVN
-    ^ '$Id: ProgrammingLanguage.st 10643 2011-06-08 21:53:07Z vranyj1 $'
+    ^ '$Id: ProgrammingLanguage.st 10656 2011-07-07 22:08:07Z vranyj1 $'
 ! !
 
-ProgrammingLanguage initialize!
-
-
+ProgrammingLanguage initialize!
\ No newline at end of file