--- a/Filename.st	Mon Feb 17 16:03:27 2020 +0100
+++ b/Filename.st	Tue Feb 18 17:05:48 2020 +0100
@@ -4676,6 +4676,7 @@
 
     "
      '/tmp' asFilename construct:'foo'
+     '/tmp' asFilename construct:('foo' asFilename)
      '/' asFilename construct:'foo'
      '/usr/tmp' asFilename construct:'foo'
      '/foo/bar' asFilename construct:'baz'
@@ -4685,7 +4686,8 @@
        'foo/bar.baz' asFilename construct:'.suff'
     "
 
-    "Modified: 29.2.1996 / 20:55:06 / cg"
+    "Modified: / 29-02-1996 / 20:55:06 / cg"
+    "Modified (comment): / 18-02-2020 / 15:44:13 / Stefan Vogel"
 !
 
 constructDirectory:subname
@@ -4724,16 +4726,19 @@
 
     "
      '/tmp' asFilename constructString:'foo'
+     '/tmp' asFilename constructString:'/foo'
+     '/tmp' asFilename constructString:('foo' asFilename)
      '/' asFilename constructString:'foo'
      '/usr/tmp' asFilename constructString:'foo'
      '/foo/bar' asFilename constructString:'baz'
      '' asFilename constructString:'baz'
     "
 
-    "Modified: / 7.9.1995 / 10:15:22 / claus"
-    "Created: / 9.9.1997 / 08:57:08 / cg"
-    "Modified: / 20.1.1998 / 15:58:23 / md"
-    "Modified: / 27.7.1998 / 19:47:51 / cg"
+    "Modified: / 07-09-1995 / 10:15:22 / claus"
+    "Created: / 09-09-1997 / 08:57:08 / cg"
+    "Modified: / 20-01-1998 / 15:58:23 / md"
+    "Modified: / 27-07-1998 / 19:47:51 / cg"
+    "Modified (comment): / 18-02-2020 / 15:43:44 / Stefan Vogel"
 !
 
 filenameFor:fileName