Index: tests/manipulatorsOutput3.cfa
===================================================================
--- tests/manipulatorsOutput3.cfa	(revision 9edf8357e5c2a54aec5f83e78e29ccbbaabd8963)
+++ tests/manipulatorsOutput3.cfa	(revision 7119daab4c6a4a3c0fec568a2afb296ccf53baac)
@@ -52,6 +52,9 @@
     sout | left(wd( 10,40, oct(y) )) | 'X';
 
-    y = 123456789;
+    y = 01234567;
     sout | left(wd( 45, 49, oct(y) )) | 'X';
+    y = -y;
+    sout | wd(0, oct(y)) | 'Y';
+    sout | left(wd(0, oct(y))) | 'Y';
     sout | nl;
 
@@ -66,11 +69,33 @@
     sout | left(wd( 45,49, upcase(hex(x)) )) | 'X';
 
-    sout | nl | nl;
+    sout | nl;
 
     int128 divisor = 0x4b3b4ca85a86c47a;
     divisor <<= 16;
     divisor += 0x98a224000000000;
+    
+    // base 2
+    sout | "base 2";
+    sout | bin(divisor);
+    sout | upcase(bin(divisor));
+    sout | wd(38, upcase(bin(divisor)));
+    sout | wd(40, upcase(bin(divisor)));
+    sout | wd(40, 38, upcase(bin(divisor)));
+    sout | wd(40, 30, upcase(bin(divisor)));
+    sout | pad0(sign(wd(40, 38, upcase(bin(divisor)))));
+    sout | nl;
+    
+    // oct
+    sout | "base 8";
+    sout | upcase(oct(divisor));
+    sout | wd(38, upcase(oct(divisor)));
+    sout | wd(40, upcase(oct(divisor)));
+    sout | wd(40, 38, upcase(oct(divisor)));
+    sout | wd(40, 30, upcase(oct(divisor)));
+    sout | pad0(sign(wd(40, 38, upcase(oct(divisor)))));
+    sout | nl;
 
-    // base 10
+    // decimal
+    sout | "base 10";
     sout | divisor;
     sout | wd(2, divisor);
@@ -87,22 +112,8 @@
     sout | pad0(wd(40, divisor));
     sout | pad0(sign(wd(40,divisor)));
-    
-    // base 2
-    sout | upcase(bin(divisor));
-    sout | wd(38, upcase(bin(divisor)));
-    sout | wd(40, upcase(bin(divisor)));
-    sout | wd(40, 38, upcase(bin(divisor)));
-    sout | wd(40, 30, upcase(bin(divisor)));
-    sout | pad0(sign(wd(40, 38, upcase(bin(divisor)))));
-    
-    // oct
-    sout | upcase(oct(divisor));
-    sout | wd(38, upcase(oct(divisor)));
-    sout | wd(40, upcase(oct(divisor)));
-    sout | wd(40, 38, upcase(oct(divisor)));
-    sout | wd(40, 30, upcase(oct(divisor)));
-    sout | pad0(sign(wd(40, 38, upcase(oct(divisor)))));
+    sout | nl;
     
     // hex
+    sout | "base 16";
     sout | upcase(hex(divisor));
     sout | wd(38, upcase(hex(divisor)));
@@ -111,4 +122,5 @@
     sout | wd(40, 30, upcase(hex(divisor)));
     sout | pad0(sign(wd(40, 38, upcase(hex(divisor)))));
+    sout | nl;