diff --git a/ansi-tests/expt.lsp b/ansi-tests/expt.lsp
index 4b288363a12cd46be286df5f76ba1548fc0fc6af..dd43daba7cac306e664a24325ed3ae927c8db1d2 100644
--- a/ansi-tests/expt.lsp
+++ b/ansi-tests/expt.lsp
@@ -19,6 +19,41 @@
   (signals-error (expt 1 1 nil nil) program-error)
   t)
 
+(deftest expt.error.4
+  (signals-error (expt most-positive-short-float 2) floating-point-overflow)
+  t)
+
+(deftest expt.error.5
+  (signals-error (expt most-positive-single-float 2) floating-point-overflow)
+  t)
+
+(deftest expt.error.6
+  (signals-error (expt most-positive-double-float 2) floating-point-overflow)
+  t)
+
+(deftest expt.error.7
+  (signals-error (expt most-positive-long-float 2) floating-point-overflow)
+  t)
+
+(deftest expt.error.8
+  (signals-error (expt least-positive-short-float 2) floating-point-underflow)
+  t)
+
+(deftest expt.error.9
+  (signals-error (expt least-positive-single-float 2) floating-point-underflow)
+  t)
+
+(deftest expt.error.10
+  (signals-error (expt least-positive-double-float 2) floating-point-underflow)
+  t)
+
+(deftest expt.error.11
+  (signals-error (expt most-positive-long-float 2) floating-point-underflow)
+  t)
+
+
+
+
 ;;; Non-error tests
 
 (deftest expt.1