From 2c53d1f8ed4c28a841d4460f9a157474d5594e73 Mon Sep 17 00:00:00 2001
From: "U-Khasa\\Vitor" <Vitor@Khasa.(none)>
Date: Sun, 2 Aug 2009 15:54:27 -0500
Subject: [PATCH] fix error message in put

---
 C/iopreds.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
 mode change 100644 => 100755 C/iopreds.c

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)));