1.1--- a/lisp/bin/skel.lisp	Thu Jun 20 21:45:20 2024 -0400
     1.2+++ b/lisp/bin/skel.lisp	Thu Jun 20 21:53:49 2024 -0400
     1.3@@ -137,14 +137,16 @@
     1.4     (t (skel-error "unknown VC type"))))
     1.5 
     1.6 (defun hg-status ()
     1.7-  (let ((proc (run-hg-command "status" nil :stream)))
     1.8-    (copy-stream (process-output proc) *standard-output*)
     1.9-    (finish-output)))
    1.10+  (with-open-stream (proc (process-output (run-hg-command "status" nil :stream)))
    1.11+    (loop for x = (read-line proc nil)
    1.12+          while x
    1.13+          do (println x))))
    1.14 
    1.15 (defun git-status ()
    1.16-  (let ((proc (run-git-command "status" nil :stream)))
    1.17-    (copy-stream (process-output proc) *standard-output*)
    1.18-    (finish-output)))
    1.19+  (with-open-stream (proc (run-git-command "status" nil :stream))
    1.20+    (loop for x = (read-line proc nil)
    1.21+          while x
    1.22+          do (println x))))
    1.23 
    1.24 (defcmd skc-status
    1.25   (case (sk-vc-meta-kind (sk-vc (find-skelfile #P"." :load t)))