--- a/ProgrammingLanguage.st	Wed Aug 21 11:51:30 2013 +0100
+++ b/ProgrammingLanguage.st	Fri Aug 23 11:44:50 2013 +0100
@@ -77,9 +77,14 @@
 forStream: aStream 
     "Answers a language for given source stream. If none is found,
      SmalltalkLanguage is returned (to provide backward compatibility)"
-    
-    aStream isFileStream ifFalse: [ ^ SmalltalkLanguage instance ].
-    ^ self forFile: aStream fileName
+
+    |inputStream|
+
+    "/ disregard any filters or decoders
+    inputStream := aStream inputStream.
+
+    inputStream isFileStream ifFalse: [^ SmalltalkLanguage instance].
+    ^ self forFile:inputStream fileName
 
     "Created: / 16-08-2009 / 10:56:26 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
@@ -533,11 +538,11 @@
 !ProgrammingLanguage class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.26 2013-07-22 13:45:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.27 2013-08-21 14:01:32 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.26 2013-07-22 13:45:07 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.27 2013-08-21 14:01:32 stefan Exp $'
 !
 
 version_SVN