diff --git a/1-base/lace/source/environ/lace-environ-paths.adb b/1-base/lace/source/environ/lace-environ-paths.adb
index bd3d015..9ef7f7d 100644
--- a/1-base/lace/source/environ/lace-environ-paths.adb
+++ b/1-base/lace/source/environ/lace-environ-paths.adb
@@ -706,8 +706,6 @@ is
    is
    begin
       check (Self);
-      check (To);
-
       ada.Directories.copy_File (+Self, +To);
    end copy_File;
 
@@ -749,7 +747,6 @@ is
    is
    begin
       check (Self);
-      check (To);
 
       -- 'Ada.Directories.Rename' fails when the file is moved across a device.
       -- For instance     Rename ("/tmp/a_file", "/home/user/a_file");
diff --git a/1-base/lace/source/environ/lace-environ-paths.ads b/1-base/lace/source/environ/lace-environ-paths.ads
index a09692e..46f9d19 100644
--- a/1-base/lace/source/environ/lace-environ-paths.ads
+++ b/1-base/lace/source/environ/lace-environ-paths.ads
@@ -143,8 +143,8 @@ is
    -- 'Named' can contain an asterix GLOB such as "*" or "*.txt".
 
 
-   procedure  rid_File   (Self  : in File);
-   procedure  rid_Files  (Named : in String);
+   procedure rid_File    (Self  : in File);
+   procedure rid_Files   (Named : in String);
    --
    -- 'Named' can contain an asterix GLOB such as "*" or "*.txt".