--- a/LimitedPrecisionReal.st	Tue Jun 17 15:08:37 2003 +0200
+++ b/LimitedPrecisionReal.st	Tue Jun 17 15:19:15 2003 +0200
@@ -300,11 +300,11 @@
 !
 
 ceiling
-    self subclassResponsibility
+    ^ self asTrueFraction ceiling
 !
 
 floor
-    self subclassResponsibility
+    ^ self asTrueFraction floor
 ! !
 
 !LimitedPrecisionReal methodsFor:'coercing & converting'!
@@ -923,12 +923,20 @@
 roundedAsFloat
     self negative ifTrue:[ ^ (self - 0.5) ceilingAsFloat ].
     ^ (self + 0.5) floorAsFloat
+!
+
+truncatedAsFloat
+    ^ self coerce:(self truncated).
+
+    "
+     0.4 asLongFloat truncatedAsFloat
+    "
 ! !
 
 !LimitedPrecisionReal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.51 2003-06-17 12:12:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.52 2003-06-17 13:19:15 cg Exp $'
 ! !
 
 LimitedPrecisionReal initialize!