Index: tools/sxcat.adb
==================================================================
--- tools/sxcat.adb
+++ tools/sxcat.adb
@@ -496,11 +496,11 @@
                Entity := SE.Printers.Pretty.Opening;
                Valid := True;
             when ')' | 'c' | 'C' =>
                Entity := SE.Printers.Pretty.Closing;
                Valid := True;
-            when 'a' | 'A' | 'd' | 'D' =>
+            when 'a' | 'A' | 'd' | 'D' | 'x' | 'X' =>
                Entity := SE.Printers.Pretty.Atom_Data;
                Valid := True;
             when others =>
                Valid := False;
          end case;

Index: tools/tests.sh
==================================================================
--- tools/tests.sh
+++ tools/tests.sh
@@ -206,11 +206,11 @@
 		echo "sxcat latin-1 width test failed"
 		RET_VAL="1"
 	fi
 
 	${BIN_DIR}/sxcat --ext-token --indent 3st --hex-atom --escape-hex \
-	    --no-quoted --no-token --newline ')d,)(,oo,d(' --space 'dd' \
+	    --no-quoted --no-token --newline ')d,)(,oo,x(' --space 'dd' \
 	    --width 80 --nl cr-lf --unix --lower --dump >"${TMP_DEST}"
 
 	if ! ${BIN_DIR}/sxcat --config "${TMP_DEST}" --dump \
 	    | diff -u "${TMP_DEST}" -
 	then