--- a/QuadFloat.st	Fri Jul 19 17:25:54 2019 +0200
+++ b/QuadFloat.st	Fri Jul 19 17:29:00 2019 +0200
@@ -2582,6 +2582,15 @@
     "
 
     "Created: / 07-06-2019 / 03:24:20 / Claus Gittinger"
+!
+
+radix
+    "answer the radix of a QuadFloat's exponent
+     This is an IEEE float, which is represented as binary"
+
+    ^ 2 "must be careful here, whenever ST/X is used on VAX or a 370"
+
+    "Created: / 19-07-2019 / 17:28:00 / Claus Gittinger"
 ! !
 
 !QuadFloat methodsFor:'arithmetic'!
@@ -2942,3 +2951,4 @@
 version_CVS
     ^ '$Header$'
 ! !
+