--- a/LimitedPrecisionReal.st	Wed Jun 21 20:49:13 2017 +0200
+++ b/LimitedPrecisionReal.st	Wed Jun 21 20:49:31 2017 +0200
@@ -16,10 +16,10 @@
 "{ NameSpace: Smalltalk }"
 
 Number subclass:#LimitedPrecisionReal
-        instanceVariableNames:''
-        classVariableNames:''
-        poolDictionaries:''
-        category:'Magnitude-Numbers'
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Magnitude-Numbers'
 !
 
 !LimitedPrecisionReal class methodsFor:'documentation'!
@@ -427,12 +427,15 @@
     Smalltalk at:#FloatD put:Float.
     Smalltalk at:#FloatQ put:LongFloat.
 
+    "/ not defined in ANSI, but consistent in its naming
+    Smalltalk at:#FloatQD put:QDouble.
+
     "
      self initialize
     "
 
-    "Created: / 7.9.2001 / 14:02:45 / cg"
-    "Modified: / 7.9.2001 / 14:02:54 / cg"
+    "Created: / 07-09-2001 / 14:02:45 / cg"
+    "Modified (comment): / 21-06-2017 / 13:59:08 / cg"
 ! !
 
 !LimitedPrecisionReal class methodsFor:'constants & defaults'!