--- a/ShortFloat.st	Wed Mar 25 16:41:40 2015 +0100
+++ b/ShortFloat.st	Wed Mar 25 16:41:55 2015 +0100
@@ -321,6 +321,10 @@
     "
         ShortFloat fromIEEE32Bit:(#[64 73 15 219] asInteger)
     "
+!
+
+fromNumber:aNumber
+    ^aNumber asShortFloat
 ! !
 
 !ShortFloat class methodsFor:'accessing'!
@@ -337,7 +341,6 @@
     ^ Epsilon
 ! !
 
-
 !ShortFloat class methodsFor:'binary storage'!
 
 readBinaryIEEESingleFrom:aStream
@@ -498,7 +501,6 @@
     "Modified: 23.4.1996 / 09:26:45 / cg"
 ! !
 
-
 !ShortFloat class methodsFor:'queries'!
 
 exponentCharacter
@@ -2040,11 +2042,11 @@
 !ShortFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.136 2015-02-03 16:31:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.137 2015-03-25 15:41:55 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.136 2015-02-03 16:31:11 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.137 2015-03-25 15:41:55 cg Exp $'
 ! !