Index: /trunk/tests/ansi-tests/ccl.lsp
===================================================================
--- /trunk/tests/ansi-tests/ccl.lsp	(revision 14675)
+++ /trunk/tests/ansi-tests/ccl.lsp	(revision 14676)
@@ -1753,2 +1753,20 @@
       (floating-point-overflow (c) c)))
   :win)
+
+(deftest ccl.bug#831
+  (let ((val #c(1d300 1d300)))
+    (handler-case
+	(progn
+	  (log val)
+	  :win)
+      (floating-point-overflow (c) c)))
+  :win)
+
+(deftest ccl.bug#832
+  (let ((val #c(1d300 1d300)))
+    (handler-case
+	(progn
+	  (sqrt val)
+	  :win)
+      (floating-point-overflow (c) c)))
+  :win)