diff --git a/tests/issues.lisp b/tests/issues.lisp
index af6dd5f59595a3ed642723a56c8b4c83c55a3bb2..d3c47767e18a22112501557558e987c991516dab 100644
--- a/tests/issues.lisp
+++ b/tests/issues.lisp
@@ -544,3 +544,15 @@
   ;; the correct value.
   (assert-false
    (funcall (compile nil '(lambda () (array-displacement "aaaaaaaa"))))))
+
+(define-test issue.101
+    (:tag :issues)
+  ;; Verifies that we don't get unexpected overflow.  The actual value
+  ;; is not really important.  The important part is no overflow is
+  ;; signaled.
+  ;;
+  ;; See https://gitlab.common-lisp.net/cmucl/cmucl/-/issues/101 for
+  ;; more details.
+  (assert-equalp
+   3.0380154777955097d205
+   (expt 1.7976931348623157d308 0.6666)))