diff --git a/ansi-tests/lcm.lsp b/ansi-tests/lcm.lsp
index 3d8b801808d814c7dfda4c64dd1e94f03d397b9c..dcc8159f57991607c884c2d4c5905fd00a8f82cb 100644
--- a/ansi-tests/lcm.lsp
+++ b/ansi-tests/lcm.lsp
@@ -78,6 +78,23 @@
 	always (eql (apply #'lcm (make-list i :initial-element 1)) 1))
   t)
 
+(deftest lcm.9
+  (lcm 0 0)
+  0)
+
+(deftest lcm.10
+  (lcm 1 0 0)
+  0)
+
+(deftest lcm.11
+  (lcm 0 1 0)
+  0)
+
+(deftest lcm.12
+  (lcm 0 0 1)
+  0)
+
+
 (deftest lcm.order.1
   (let ((i 0) x y)
     (values
@@ -100,3 +117,5 @@
      (lcm (progn (incf i) 0))
      i))
   0 1)
+
+