diff --git a/C/iopreds.c b/C/iopreds.c
old mode 100644
new mode 100755
index b501ff9b1..00cf27c54
--- a/C/iopreds.c
+++ b/C/iopreds.c
@@ -4525,7 +4525,7 @@ p_put (void)
     return (FALSE);
   if (Stream[sno].status & Binary_Stream_f) {
     UNLOCK(Stream[sno].streamlock);
-    Yap_Error(PERMISSION_ERROR_OUTPUT_BINARY_STREAM, ARG1, "get0/2");
+    Yap_Error(PERMISSION_ERROR_OUTPUT_BINARY_STREAM, ARG1, "put/2");
     return(FALSE);
   }
   Stream[sno].stream_wputc (sno, (int) IntegerOfTerm (Deref (ARG2)));