--- a/Form.st	Thu Aug 31 16:39:32 2017 +0200
+++ b/Form.st	Thu Aug 31 16:39:54 2017 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -497,6 +499,8 @@
 
     |path|
 
+    self obsoleteMethodWarning.
+
     ((fileName at:1) == $/) ifTrue:[^ fileName].
     (fileName startsWith:'../') ifTrue:[^ fileName].
     (fileName startsWith:'./') ifTrue:[^ fileName].
@@ -504,16 +508,16 @@
 
     path := Smalltalk getBitmapFileName:fileName.
     path notNil ifTrue:[
-	^ path
+        ^ path
     ].
 
     AdditionalBitmapDirectoryNames notNil ifTrue:[
-	AdditionalBitmapDirectoryNames do:[:aPath |
-	    path := aPath , '/' , fileName.
-	    (OperatingSystem isReadable:path) ifTrue:[
-		^ path
-	    ]
-	]
+        AdditionalBitmapDirectoryNames do:[:aPath |
+            path := aPath , '/' , fileName.
+            (OperatingSystem isReadable:path) ifTrue:[
+                ^ path
+            ]
+        ]
     ].
     ^ nil
 ! !