diff --git a/contrib/lazy-lists/lists.factor b/contrib/lazy-lists/lists.factor
index d6e7c1627e..296a56d6bd 100644
--- a/contrib/lazy-lists/lists.factor
+++ b/contrib/lazy-lists/lists.factor
@@ -290,13 +290,6 @@ M: lazy-zip nil? ( lazy-zip -- bool )
 : lcartesian-product ( list1 list2 -- result ) 
   swap [ swap [ 2array ] lmap-with ] lmap-with lconcat ;
 
-: (lcartesian-product*) ( car cdr -- result )
-  dup nil? [ 
-    drop
-  ] [
-    car lcartesian-product 
-  ] if ;
-
 : lcartesian-product* ( lists -- result )
   dup nil? [
     drop nil