diff --git a/1-base/lace/source/text/lace-text-forge.adb b/1-base/lace/source/text/lace-text-forge.adb
index d15bc3a..07ec696 100644
--- a/1-base/lace/source/text/lace-text-forge.adb
+++ b/1-base/lace/source/text/lace-text-forge.adb
@@ -49,6 +49,20 @@ is
    end to_Text;
 
 
+
+   procedure store (Filename : in forge.Filename;   the_String : in String)
+   is
+      use ada.Text_IO;
+
+      File : File_type;
+   begin
+      create (File, out_File, String (Filename));
+      put    (File, the_String);
+      close  (File);
+   end store;
+
+
+
    --------------
    -- Stock Items
    --
diff --git a/1-base/lace/source/text/lace-text-forge.ads b/1-base/lace/source/text/lace-text-forge.ads
index a3c5dc2..853da7a 100644
--- a/1-base/lace/source/text/lace-text-forge.ads
+++ b/1-base/lace/source/text/lace-text-forge.ads
@@ -14,6 +14,9 @@ is
    function to_Text   (Filename : in forge.Filename) return Item;       -- Converts 'CR & LF' to 'LF' at the end of a line.
 
 
+   procedure store (Filename : in forge.Filename;   the_String : in String);
+
+
    --------------
    -- Stock Items
    --