diff --git a/libf2c/ChangeLog b/libf2c/ChangeLog
index a8cc3813c46..575c18af148 100644
--- a/libf2c/ChangeLog
+++ b/libf2c/ChangeLog
@@ -1,3 +1,9 @@
+1998-06-29  Dave Love  <d.love@dl.ac.uk>
+
+	* libI77/wsfe.c (s_wsfe): Fix setting of f__curunit lost in
+	previous change.
+	* libI77/rsfe.c (s_rsfe): Likewise.
+
 1998-06-23  Dave Love  <d.love@dl.ac.uk>
 
 	* libI77/backspace.c, libI77/dfe.c, libI77/due.c, libI77/iio.c,
diff --git a/libf2c/libI77/rsfe.c b/libf2c/libI77/rsfe.c
index 66604624691..a79cd79f03c 100644
--- a/libf2c/libI77/rsfe.c
+++ b/libf2c/libI77/rsfe.c
@@ -60,6 +60,7 @@ integer s_rsfe(cilist *a) /* start */
 	f__cursor=f__recpos=0;
 	f__scale=0;
 	f__fmtbuf=a->cifmt;
+	f__curunit= &f__units[a->ciunit];
 	f__cf=f__curunit->ufd;
 	if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio");
 	f__getn= x_getc;
diff --git a/libf2c/libI77/wsfe.c b/libf2c/libI77/wsfe.c
index b55b1429ee7..babfb3479d9 100644
--- a/libf2c/libI77/wsfe.c
+++ b/libf2c/libI77/wsfe.c
@@ -57,6 +57,7 @@ integer s_wsfe(cilist *a)	/*start*/
 	f__nonl = 0;
 	f__scale=0;
 	f__fmtbuf=a->cifmt;
+	f__curunit = &f__units[a->ciunit];
 	f__cf=f__curunit->ufd;
 	if(pars_f(f__fmtbuf)<0) err(a->cierr,100,"startio");
 	f__putn= x_putc;