--- a/file.rhope	Wed Oct 06 23:48:32 2010 +0000
+++ b/file.rhope	Wed Oct 13 01:15:04 2010 +0000
@@ -219,12 +219,28 @@
 
 Write@File Write[file,data(Array):out,err]
 {
-	err <- If[write[[file]Descriptor >>, data, Int64[[data]Length >>]]] {}
+	err <- If[[write[[file]Descriptor >>, data, Int64[[data]Length >>]]]<[0i32]] {}
 	{
 		out <- file
 	}
 }
 
+Write to File@String[str,file:out,err]
+{
+	out,err <- [file]Write[[str]Buffer >>]
+}
+
+Write to File@String Slice[str,file:out,err]
+{
+	out,err <- [[str]Flatten]Write to File[file]
+}
+
+Write to File@String Cat[str,file:out,err]
+{
+	,err <- [[str]Left >>]Write to File[file]
+	{ out,err <- [[str]Right >>]Write to File[~] }
+}
+
 Close@File Write[file:out]
 {
 	fsync[[file]Descriptor >>]