diff --git a/src/lsp/numlib.lsp b/src/lsp/numlib.lsp
index ef4157220..acdce53e6 100644
--- a/src/lsp/numlib.lsp
+++ b/src/lsp/numlib.lsp
@@ -33,8 +33,9 @@
 	 (/= (float 1 x) (+ (float 1 x) x)))
        (epsilon- (x)
 	 (/= (float 1 x) (- (float 1 x) x))))
+  #+ecl-min
+  (si::trap-fpe 'last nil)
   `(eval-when (compile load eval)
-   (let ((bits (si::trap-fpe 'last nil)))
     (defconstant short-float-epsilon
       ,(binary-search #'epsilon+ (coerce 0 'short-float) (coerce 1 'short-float))
       "The smallest postive short-float E that satisfies
@@ -67,7 +68,7 @@
       ,(binary-search #'epsilon- (coerce 0 'long-float) (coerce 1 'long-float))
       "The smallest positive long-float E that satisfies
 	(not (= (float 1 E) (- (float 1 E) E)))")
-    (si::trap-fpe 'last nil))))
+    ))
 
 #+IEEE-FLOATING-POINT
 (locally