diff --git a/extra/lists/lazy/lazy.factor b/extra/lists/lazy/lazy.factor
index 8a1e73928c..5854e37702 100644
--- a/extra/lists/lazy/lazy.factor
+++ b/extra/lists/lazy/lazy.factor
@@ -356,7 +356,7 @@ M: lazy-io car ( lazy-io -- car )
         nip
     ] [
         drop dup stream>> over quot>> call
-        swap dupd set-lazy-io-car
+        >>car
     ] if ;
 
 M: lazy-io cdr ( lazy-io -- cdr )