thodg/cl-unix-cybernetics

diff --git a/shell/shell.lisp b/shell/shell.lisp
index 605061a..aaebd1a 100644
--- a/shell/shell.lisp
+++ b/shell/shell.lisp
@@ -151,9 +151,9 @@ Error: ~S"
 	   (err (shell-err/line shell)))
       (when (shell-log-p shell)
 	(dolist (line out)
-	  (shell-log shell "│ ~A~%" line))
+	  (shell-log shell "| ~A~%" line))
 	(dolist (line err)
-	  (shell-log shell "┃ ~A~&" line))
+	  (shell-log shell "# ~A~&" line))
 	(shell-log shell   " ⇒ ~D~%" status))
       (values status out err))))