--- a/LPReal.st	Mon Jan 26 15:06:42 1998 +0100
+++ b/LPReal.st	Mon Jan 26 20:34:29 1998 +0100
@@ -137,13 +137,6 @@
     ^ (self / aNumber) floor asInteger
 
     "Modified: 5.11.1996 / 11:45:37 / cg"
-!
-
-\\ aNumber
-    "return the integer remainder of dividing the receiver by aNumber with
-    truncation towards negative infinity."
-
-    ^ (self - ((self / aNumber) floor * aNumber)) floor asInteger
 ! !
 
 !LimitedPrecisionReal methodsFor:'coercion and converting'!
@@ -498,5 +491,5 @@
 !LimitedPrecisionReal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/LPReal.st,v 1.25 1998-01-20 18:20:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/LPReal.st,v 1.26 1998-01-26 19:34:29 tz Exp $'
 ! !

--- a/LimitedPrecisionReal.st	Mon Jan 26 15:06:42 1998 +0100
+++ b/LimitedPrecisionReal.st	Mon Jan 26 20:34:29 1998 +0100
@@ -137,13 +137,6 @@
     ^ (self / aNumber) floor asInteger
 
     "Modified: 5.11.1996 / 11:45:37 / cg"
-!
-
-\\ aNumber
-    "return the integer remainder of dividing the receiver by aNumber with
-    truncation towards negative infinity."
-
-    ^ (self - ((self / aNumber) floor * aNumber)) floor asInteger
 ! !
 
 !LimitedPrecisionReal methodsFor:'coercion and converting'!
@@ -498,5 +491,5 @@
 !LimitedPrecisionReal class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.25 1998-01-20 18:20:35 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/LimitedPrecisionReal.st,v 1.26 1998-01-26 19:34:29 tz Exp $'
 ! !