diff --git a/src/Doc/Print.DD b/src/Doc/Print.DD
index d9a6609c..84008e95 100755
--- a/src/Doc/Print.DD
+++ b/src/Doc/Print.DD
@@ -52,6 +52,12 @@ $FG,2$"%Z"$FG$ $LK,"DefineListLoad",A="MN:DefineListLoad"$() subentry.	Pass sub_
 $FG,2$"%Q"$FG$ convert "\" to "\\" and quote to backslash quote. (For use in creating strs in strs.)
 
 $FG,2$"%q"$FG$ rev a $FG,2$"%Q"$FG$.
+
+$FG,2$"%x"$FG$ Hex number.
+ 
+$FG,2$"%b"$FG$ Binary number$FG$.
+
+$FG,2$"%o"$FG$ Bool$FG$.
 $ID,-2$
 
 $FG,5$$TX+CX,"Print Family"$$FG$
diff --git a/src/Kernel/StrPrint.ZC b/src/Kernel/StrPrint.ZC
index ba8f61af..5d8d6d99 100755
--- a/src/Kernel/StrPrint.ZC
+++ b/src/Kernel/StrPrint.ZC
@@ -438,6 +438,11 @@ to avoid this.
 							throw('StrPrint');
 						ptr = argv[cur_arg++];
 						break;
+					case 'o': // Bool
+						if (cur_arg >= argc)
+							throw('StrPrint');
+						if (argv[cur_arg++]) ptr = "TRUE"; else ptr = "FALSE";
+						break;
 
 					case 'S':
 						if (cur_arg >= argc)