diff --git a/ansi-tests/expt.lsp b/ansi-tests/expt.lsp
index d926f6937c84cf09950cb1c18df39aab85ba65a5..116204aea9f835ab3b692f5e1cdfea04f6c3dfc5 100644
--- a/ansi-tests/expt.lsp
+++ b/ansi-tests/expt.lsp
@@ -27,7 +27,7 @@
   t)
 
 (deftest expt.3
-  (loop for i = (random 10000.0s0)
+  (loop for i = (random 1.0s3)
 	repeat 1000
 	always (eql (expt i 0) 1.0s0))
   t)
@@ -39,19 +39,50 @@
   t)
 
 (deftest expt.5
-  (loop for i = (random 1.0d20)
+  (loop for i = (random 1.0d10)
 	repeat 1000
 	always (eql (expt i 0) 1.0d0))
   t)
 
 (deftest expt.6
-  (loop for i = (random 1.0l50)
+  (loop for i = (random 1.0l10)
 	repeat 1000
 	always (eql (expt i 0) 1.0l0))
   t)
 
+(deftest expt.7
+  (loop for i from -1000 to 1000
+	for c = (complex i i)
+	always (eql (expt c 0) 1))
+  t)
 
+(deftest expt.8
+  (loop for i = (random 1.0s3)
+	for c = (complex i i)
+	repeat 1000
+	always (eql (expt c 0) #c(1.0s0 0.0s0)))
+  t)
 
+(deftest expt.9
+  (loop for i = (random 1.0f6)
+	for c = (complex i i)
+	repeat 1000
+	always (eql (expt c 0) #c(1.0f0 0.0f0)))
+  t)
+
+(deftest expt.10
+  (loop for i = (random 1.0d10)
+	for c = (complex i i)
+	repeat 1000
+	always (eql (expt c 0) #c(1.0d0 0.0d0)))
+  t)
+
+(deftest expt.11
+  (loop for i = (random 1.0l10)
+	for c = (complex i i)
+	repeat 1000
+	always (eql (expt c 0) #c(1.0l0 0.0l0)))
+  t)