diff -ruN klic-3.003-2001-11-20/runtime/termio.kl1 klic-3.003-2001-11-21/runtime/termio.kl1
--- klic-3.003-2001-11-20/runtime/termio.kl1	Thu May  3 23:23:46 2001
+++ klic-3.003-2001-11-21/runtime/termio.kl1	Tue Nov 20 23:08:58 2001
@@ -31,6 +31,8 @@
     send_unix(connect(What,RU),U,UT), termupdt(RU,R), klicio(S,UT).
 klicio([connect2(What,R)|S],U) :-
     send_unix(connect2(What,RU),U,UT), termupdt(RU,R), klicio(S,UT).
+klicio([fork_with_pipes(R)|S],U) :-
+    send_unix(fork_with_pipes(RU),U,UT), fork_with_pipes(RU,R), klicio(S,UT).
 klicio([bind(What,R)|S],U) :-
     send_unix(bind(What,RU),U,UT), bind(RU,R), klicio(S,UT).
 otherwise.
@@ -63,6 +65,15 @@
     updt(SI,SU,s(Ops,0)).
 otherwise.
 termupdt(R0,R) :- R=R0.
+
+fork_with_pipes(parent(PID,InU,OutU),R) :-
+    R=parent(PID,In,Out),
+    termin(normal(InU),normal(In)),
+    termout(normal(OutU),normal(Out)).
+fork_with_pipes(child(InU,OutU),R) :-
+    R=child(In,Out),
+    termin(normal(InU),normal(In)),
+    termout(normal(OutU),normal(Out)).
 
 bind(normal(SU),R) :-
     R=normal(SI),