X-Git-Url: https://git.stderr.nl/gitweb?a=blobdiff_plain;f=src%2Fstream.c;h=f7bee3243db3a94061afeecf44f138b4d60f4571;hb=3bcfb092671765e3ece0c4225c4e69ad960b31cc;hp=28ea3ec91933981bf7554897da0d22196fe6cf8d;hpb=9576479a013cce9694bb2e4e045162baed1c2470;p=rodin%2Fchimara.git

diff --git a/src/stream.c b/src/stream.c
index 28ea3ec..f7bee32 100644
--- a/src/stream.c
+++ b/src/stream.c
@@ -81,7 +81,7 @@ glk_stream_get_rock(strid_t str)
 void
 glk_stream_set_current(strid_t str)
 {
-	if(str != NULL && str->file_mode != filemode_Write)
+	if(str != NULL && str->file_mode == filemode_Read)
 	{
 		g_warning("glk_stream_set_current: "
 			"Cannot set current stream to non output stream");
@@ -250,7 +250,8 @@ file_stream_new(frefid_t fileref, glui32 fmode, glui32 rock, gboolean unicode)
 	g_return_val_if_fail(fileref != NULL, NULL);
 	
 	gchar *modestr;
-	gboolean binary = fileref->usage & fileusage_BinaryMode;
+	/* Binary mode is 0x000, text mode 0x100 */
+	gboolean binary = !(fileref->usage & fileusage_TextMode);
 	switch(fmode) 
 	{
 		case filemode_Read: