diff --git a/lib/chibi/numeric-test.sld b/lib/chibi/numeric-test.sld
index 66769a4b..e2c3855d 100644
--- a/lib/chibi/numeric-test.sld
+++ b/lib/chibi/numeric-test.sld
@@ -16,6 +16,10 @@
     (define (run-tests)
       (test-begin "numbers")
 
+      (test 3 (expt 3 1))
+      ;(test 1/3 (expt 3 -1))
+      (test 1/300000000000000000000 (expt 300000000000000000000 -1))
+
       (test '(536870912 536870913 536870911 -536870912 -536870911 -536870913)
           (integer-neighborhoods (expt 2 29)))