--- a/Text.st	Mon Nov 05 12:48:23 2018 +0100
+++ b/Text.st	Mon Nov 05 12:59:56 2018 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1996 by Claus Gittinger
               All Rights Reserved
@@ -731,6 +733,14 @@
 
 !Text methodsFor:'converting'!
 
+asFilename
+    "return a Filename with pathname taken from the receiver"
+
+    ^ Filename named:string
+
+    "Created: / 05-11-2018 / 10:47:54 / Stefan Vogel"
+!
+
 asSingleByteString
     ^ self class string:string asSingleByteString runs:runs.