diff --git a/basis/csv/csv.factor b/basis/csv/csv.factor
index 7789f015d9..152b3dcbba 100755
--- a/basis/csv/csv.factor
+++ b/basis/csv/csv.factor
@@ -51,12 +51,8 @@ DEFER: quoted-field ( -- endchar )
 : row ( -- eof? array[string] )
     [ (row) ] { } make ;
 
-: append-if-row-not-empty ( row -- )
-    dup { "" } = [ drop ] [ , ] if ;
-
 : (csv) ( -- )
-    row append-if-row-not-empty
-    [ (csv) ] when ;
+    row harvest [ , ] unless-empty [ (csv) ] when ;
   
 PRIVATE>