--- a/Smalltalk.st	Tue Jul 07 06:36:18 2015 +0200
+++ b/Smalltalk.st	Tue Jul 07 14:47:09 2015 +0100
@@ -6335,21 +6335,17 @@
 !
 
 fileInSourceFile:filenameArg lazy:loadLazy silent:beSilent
-    "Try all available programming languages for a matching suffix"
+    "Try all available programming languages"
 
     |filename|
 
     filename := filenameArg asFilename.
-    ProgrammingLanguage allDo:[:lang| 
-        | f |
-
-        "/ cg: changed: did try all languages to load (eg. wether suffix matched or not.
-        "/ I don't think, that is a good idea, as all of them languages might start parsing...
-        (filename hasSuffix:lang sourceFileSuffix) ifTrue:[
-            (self fileIn:f lazy:loadLazy silent:beSilent) ifTrue:[
-                ^ true
-            ].
-        ]
+    ProgrammingLanguage allDo:[:lang| | f |
+	f := (filename hasSuffix:lang sourceFileSuffix)
+		    ifTrue:[filename]
+		    ifFalse:[filename addSuffix:lang sourceFileSuffix].
+	(self fileIn:f lazy:loadLazy silent:beSilent)
+		ifTrue:[^ true]
     ].
     ^ false
 
@@ -8292,11 +8288,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header$'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1133 2015-05-22 18:41:08 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header$'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1133 2015-05-22 18:41:08 cg Exp $'
 !
 
 version_HG