Index: libcfa/src/fstream.cfa
===================================================================
--- libcfa/src/fstream.cfa	(revision 0c3aa67cf3ed5341d67295cb8265e5b944ef762c)
+++ libcfa/src/fstream.cfa	(revision ee4b77bee13f8761af7a9f179b46ad1073f6c7bd)
@@ -10,6 +10,6 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Mon Jan 10 08:45:05 2022
-// Update Count     : 513
+// Last Modified On : Sat Apr  9 14:55:54 2022
+// Update Count     : 515
 //
 
@@ -161,5 +161,7 @@
     for ( cnt; 10 ) {
 		errno = 0;
+		disable_interrupts();
 		len = vfprintf( (FILE *)(os.file$), format, args );
+		enable_interrupts();
 	  if ( len != EOF || errno != EINTR ) break;		// timer interrupt ?
 	  if ( cnt == 9 ) abort( "ofstream fmt EINTR spinning exceeded" );
@@ -293,5 +295,7 @@
     for () {											// no check for EINTR limit waiting for keyboard input
 		errno = 0;
+		disable_interrupts();
 		len = vfscanf( (FILE *)(is.file$), format, args );
+		enable_interrupts();
 	  if ( len != EOF || errno != EINTR ) break;		// timer interrupt ?
     } // for