--- a/LongFloat.st	Fri Jun 23 20:57:24 2000 +0200
+++ b/LongFloat.st	Fri Jun 23 21:03:30 2000 +0200
@@ -10,6 +10,8 @@
  hereby transferred.
 "
 
+"{ Package: 'stx:libbasic' }"
+
 LimitedPrecisionReal variableByteSubclass:#LongFloat
 	instanceVariableNames:''
 	classVariableNames:''
@@ -389,7 +391,8 @@
 
     __qMKLFLOAT(newFloat, rslt);
     RETURN ( newFloat );
-%}
+%}.
+    ^ 0.0 - self
 
 !
 
@@ -904,7 +907,8 @@
 %{  /* NOCONTEXT */
 
     RETURN ( (__longFloatVal(self) < 0.0) ? true : false );
-%}
+%}.
+    ^ self < 0.0
 !
 
 numberOfBits
@@ -988,5 +992,5 @@
 !LongFloat class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.11 2000-04-04 10:21:22 ps Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LongFloat.st,v 1.12 2000-06-23 19:03:20 cg Exp $'
 ! !