--- a/QuadFloat.st	Mon Jun 10 21:24:42 2019 +0200
+++ b/QuadFloat.st	Mon Jun 10 21:28:50 2019 +0200
@@ -2522,6 +2522,15 @@
     "Created: / 10-06-2019 / 21:21:18 / Claus Gittinger"
 !
 
+exponentCharacter
+    "return the character used to print between mantissa an exponent.
+     Also used by the scanner when reading numbers."
+
+    ^ $Q
+
+    "Created: / 10-06-2019 / 21:28:04 / Claus Gittinger"
+!
+
 numBitsInMantissa
     "answer the number of bits in the mantissa
      the hidden bit is not counted here: