diff --git a/contrib/lazy-lists/lists.factor b/contrib/lazy-lists/lists.factor
index d1086b9204..c8a82bd41b 100644
--- a/contrib/lazy-lists/lists.factor
+++ b/contrib/lazy-lists/lists.factor
@@ -262,4 +262,7 @@ M: lazy-zip cdr ( lazy-zip -- cdr )
 
 M: lazy-zip nil? ( lazy-zip -- bool )
     drop f ;
-    
\ No newline at end of file
+    
+: seq>list ( seq -- list )
+  reverse nil [ swap cons ] reduce ;
+