Index: lib/xvfs/xvfs.tcl
==================================================================
--- lib/xvfs/xvfs.tcl
+++ lib/xvfs/xvfs.tcl
@@ -46,11 +46,11 @@
 		
 		set rowString [join $row {, }]
 		set rowString "${prefix}${rowString}"
 		if {[string length $rowString] > $width} {
 			set row [list]
-			lappend lines $rowString
+			lappend lines "${rowString},"
 			unset rowString
 		}
 	}
 	if {[info exists rowString]} {
 		lappend lines $rowString