Index: /trunk/ccl/level-1/linux-files.lisp
===================================================================
--- /trunk/ccl/level-1/linux-files.lisp	(revision 819)
+++ /trunk/ccl/level-1/linux-files.lisp	(revision 820)
@@ -588,5 +588,5 @@
 		    (return))
 		  (let* ((len (length line)))
-		    (%stack-block ((buf len))
+		    (%stack-block ((buf (1+ len)))
 		      (%copy-ivector-to-ptr line 0 buf 0 len)
 		      (fd-write fd buf len)