Index: libcfa/src/iostream.cfa
===================================================================
--- libcfa/src/iostream.cfa	(revision bb83b478f3b4399d8d5165aec5f3d29c2ca6514e)
+++ libcfa/src/iostream.cfa	(revision 7d9bbef38fd89d81efc810bb49d3c7bc32dc47f4)
@@ -10,6 +10,6 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Mon Jul  6 08:49:48 2020
-// Update Count     : 1064
+// Last Modified On : Wed Jul  8 22:14:20 2020
+// Update Count     : 1069
 //
 
@@ -675,4 +675,6 @@
 		f.val = val % power;
 		if ( cnt == 1 && f.flags.left ) { wd = f.wd; f.wd = maxdig; } // copy f.wd and reset for printing middle chunk
+		// printf( "R val:%#lx(%lu) wd:%u pc:%u base:%c neg:%d pc:%d left:%d nobsdp:%d sign:%d pad0:%d\n",
+		// 		f.val, f.val, f.wd, f.pc, f.base, f.flags.neg, f.flags.pc, f.flags.left, f.flags.nobsdp, f.flags.sign, f.flags.pad0 ); 
 		(ostype &)(os | f);
 		if ( cnt == 1 ) {
@@ -715,4 +717,6 @@
 
 		if ( f.flags.neg ) f.val = -f.val;
+		// printf( "L val:%#lx(%lu) wd:%u pc:%u base:%c neg:%d pc:%d left:%d nobsdp:%d sign:%d pad0:%d\n",
+		// 		f.val, f.val, f.wd, f.pc, f.base, f.flags.neg, f.flags.pc, f.flags.left, f.flags.nobsdp, f.flags.sign, f.flags.pad0 ); 
 		(ostype &)(os | f);