: 190599 (I Hassine):CWD editiert auch die Fehlermeldungen.IF O /ED/ED$$; ER /ED/ED$$ ;WAIT; $@THEN TRUE;FI; ENVEDITOR=0;FOR LINE IN -L `ENVSET` : SUCHE NACH EDITORDO IF TEST SEG[2,8]($LINE)='EDITOR=' : EDITOR BESETZT THEN ENVEDITOR=1; FI;DONE;IF TEST $ENVEDITOR=1 THEN IF ER /NIL; WAIT; $EDITOR /ED/ED$$; THEN TRUE; FI;ELSE IF ER /NIL; WAIT; WD /ED/ED$$; THEN TRUE; FI;FI;RM /ED/ED$$;EXIT (0);