Index: /trunk/source/lib/numbers.lisp
===================================================================
--- /trunk/source/lib/numbers.lisp	(revision 14446)
+++ /trunk/source/lib/numbers.lisp	(revision 14447)
@@ -49,5 +49,5 @@
 
 (defconstant double-float-nan
-  #.(make-float-from-fixnums #x8000 0 #x3ff 1))
+  #.(make-float-from-fixnums #x8000 0 #x7ff 1))
 
 (defun parse-float (str len off)