--- a/ShortFloat.st	Fri Nov 22 00:49:07 2019 +0100
+++ b/ShortFloat.st	Fri Nov 22 00:49:34 2019 +0100
@@ -344,6 +344,7 @@
     DefaultPrintFormat := aString.
 ! !
 
+
 !ShortFloat class methodsFor:'binary storage'!
 
 readBinaryIEEESingleFrom:aStream
@@ -593,6 +594,7 @@
     "Modified: 23.4.1996 / 09:26:45 / cg"
 ! !
 
+
 !ShortFloat class methodsFor:'queries'!
 
 defaultPrintPrecision
@@ -2078,6 +2080,12 @@
     "
 !
 
+isShortFloat
+    "return true, if the receiver is some kind of short floating point number (iee single precision)"
+
+    ^ true
+!
+
 isZero
     "return true, if the receiver is zero"