Index: libcfa/src/iostream.cfa
===================================================================
--- libcfa/src/iostream.cfa	(revision dab31d0b9cadc6a37fa26253a77e66ec61978499)
+++ libcfa/src/iostream.cfa	(revision b25aafadcc83b9d9380c55d644d06c39eca99169)
@@ -10,6 +10,6 @@
 // Created On       : Wed May 27 17:56:53 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Sun Apr 26 11:13:25 2020
-// Update Count     : 979
+// Last Modified On : Sun Apr 26 20:31:36 2020
+// Update Count     : 985
 //
 
@@ -585,5 +585,5 @@
 					} else { \
 						if ( fmt.wd > 64 ) fmt.wd -= 64; \
-						if ( ! fmt.flags.nobsdp && fmt.pc < fmt.wd ) fmt.wd -= 1; \
+						/* if ( ! fmt.flags.nobsdp && fmt.pc < fmt.wd ) fmt.wd -= 1; */ \
 						fmt2.wd = 64; \
 						/* printf( "R %llo %llo %llo %llo %d %d '%c' %x\n", msig, lsig, fmt.val, fmt2.val, fmt.wd, fmt.pc, fmt.base, fmt.all ); */ \
@@ -607,8 +607,8 @@
 						if ( fmt2.wd < 21 ) fmt2.wd = 21; \
 						fmt2.flags.pc = true; fmt2.pc = 21; \
-						if ( ! fmt.flags.nobsdp && fmt.pc < fmt.wd ) fmt.wd -= 1; \
 					} else { \
-						if ( fmt.wd > 21 ) fmt.wd -= 21; \
-						if ( ! fmt.flags.nobsdp && fmt.pc < fmt.wd ) fmt.wd -= 1; \
+						if ( fmt.wd > 22 ) fmt.wd -= 22; \
+						/* compensate for leading 0 */ \
+						/*if ( ! fmt.flags.nobsdp && fmt.pc < fmt.wd ) fmt.wd -= 1;*/ \
 						fmt2.wd = 1; \
 						/* printf( "R %llo %llo %llo %llo %d %d '%c' %x\n", msig, lsig, fmt.val, fmt2.val, fmt.wd, fmt.pc, fmt.base, fmt.all ); */ \