--- a/LimitedPrecisionReal.st	Tue Oct 10 16:04:33 2017 +0200
+++ b/LimitedPrecisionReal.st	Tue Oct 10 16:04:42 2017 +0200
@@ -1248,51 +1248,24 @@
 ! !
 
 
-!LimitedPrecisionReal methodsFor:'printing & storing'!
-
-printOn:aStream
-    "append a printed representation of the receiver to
-     the argument, aStream.
-
-     LimitedPrecisonReal and its subclasses use #printString instead of
-     #printOn: as basic print mechanism."
+!LimitedPrecisionReal methodsFor:'queries'!
 
-    aStream nextPutAll:self printString
-
-    "Modified: / 20.1.1998 / 14:10:46 / stefan"
-!
+decimalPrecision
+    "Answer how many digits of accuracy this class supports"
 
-printString
-    "return a printed representation of the receiver
-     LimitedPrecisonReal and its subclasses use #printString instead of
-     #printOn: as basic print mechanism."
-
-    ^ self subclassResponsibility
+    ^ self class decimalPrecision 
 
-    "Created: / 17.4.1996 / 12:12:20 / cg"
-    "Modified: / 20.1.1998 / 14:10:47 / stefan"
-!
-
-storeOn:aStream
-    "append a printed representation of the receiver to
-     the argument, aStream.
-
-     LimitedPrecisonReal and its subclasses use #storeString instead of
-     #storeOn: as basic store mechanism."
+    "
+     1.0 asFloat decimalPrecision
+     1.0 asLongFloat decimalPrecision
+     1.0 asShortFloat decimalPrecision
+     1.0 asQDouble decimalPrecision
+     1.0 asLargeFloat decimalPrecision
+    "
 
-    aStream nextPutAll:self storeString
+    "Created: / 10-10-2017 / 15:46:43 / cg"
 !
 
-storeString
-    "return a printed representation of the receiver
-     LimitedPrecisonReal and its subclasses use #storeString instead of
-     #storeOn: as basic print mechanism."
-
-    ^ self subclassResponsibility
-! !
-
-!LimitedPrecisionReal methodsFor:'queries'!
-
 defaultNumberOfDigits
     "Answer how many digits of accuracy this class supports"