diff --git a/ChangeLog b/ChangeLog
index 203af5cac..59b4b7083 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2023-12-10  Qian Yun  <oldk1331@gmail.com>
+
+	* src/interp/i-systemd.boot: Add Boot function 'print_text_file',
+	fix the problem of missing 'cat' utility on Windows
+
 2023-12-09  Qian Yun  <oldk1331@gmail.com>
 
 	* src/interp/setq.lisp, src/interp/g-timer.boot:
diff --git a/src/interp/i-syscmd.boot b/src/interp/i-syscmd.boot
index f7a20a2da..0b3e09f53 100644
--- a/src/interp/i-syscmd.boot
+++ b/src/interp/i-syscmd.boot
@@ -703,10 +703,16 @@ withAsharpCmd args ==
 
 --% )copyright -- display copyright notice
 
-summary l ==
- OBEY STRCONC ('"cat ", $spadroot, '"/lib/summary")
-copyright () ==
- OBEY STRCONC ('"cat ", $spadroot, '"/lib/copyright")
+print_text_stream stream ==
+    if stream then
+        while (str := read_line stream) repeat
+            SAY str
+
+print_text_file filename ==
+    handle_input_file(filename, function print_text_stream, [])
+
+summary l == print_text_file STRCONC($spadroot, '"/lib/summary")
+copyright() == print_text_file STRCONC($spadroot, '"/lib/copyright")
 
 --% )credits -- display credit list