Index: /trunk/tests/ansi-tests/ccl.lsp
===================================================================
--- /trunk/tests/ansi-tests/ccl.lsp	(revision 14681)
+++ /trunk/tests/ansi-tests/ccl.lsp	(revision 14682)
@@ -1771,2 +1771,11 @@
       (floating-point-overflow (c) c)))
   :win)
+
+(deftest ccl.bug#674
+  (let ((val #c(1d160 1)))
+    (handler-case
+	(progn
+	  (/ val)
+	  :win)
+      (floating-point-overflow (c) c)))
+  :win)