--- a/ShortFloat.st	Fri Jun 07 02:35:08 2019 +0200
+++ b/ShortFloat.st	Fri Jun 07 02:36:00 2019 +0200
@@ -978,6 +978,14 @@
     "Modified (comment): / 21-06-2017 / 13:59:41 / cg"
 !
 
+asQuadFloat
+    "return a QuadFloat with same value as the receiver"
+
+    ^ QuadFloat fromShortFloat:self
+
+    "Created: / 07-06-2019 / 02:29:14 / Claus Gittinger"
+!
+
 asShortFloat
     "return a ShortFloat with same value as the receiver - that's me"