--- a/ShortFloat.st	Fri Jul 19 11:26:38 1996 +0200
+++ b/ShortFloat.st	Fri Jul 19 12:26:31 1996 +0200
@@ -288,7 +288,7 @@
 %}
 
     "
-     1.0 asShortFloat
+     1.0 asShortFloat asFloat 
     "
 !
 
@@ -551,5 +551,5 @@
 !ShortFloat  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.7 1996-07-18 10:32:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ShortFloat.st,v 1.8 1996-07-19 10:26:31 cg Exp $'
 ! !