diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index c0dff57d75908c3a014bbea4c797e507e4f854de..c482e832762807260b1a4362ec0cb3fd95e1a451 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -10689,3 +10689,11 @@ Broken at C::WT-MAKE-CLOSURE.
        (ash c (min 82 -28192897))))
    0 -714979492 1474663829)
   0)
+
+;;; ecl 
+;;; 10000000.0d0 is not of type INTEGER.
+
+(deftest misc.595
+  (floor 1/2 1.0d0)
+  0 #.(float 1/2 1.0d0))
+