From 45baf800ddaacfd22e5172f7305b2a82877c1705 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Thu, 1 Mar 2012 22:03:41 +0000
Subject: [PATCH] fix stream is not an atom (Ulrich).

---
 C/absmi.c   | 4 ++--
 C/inlines.c | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/C/absmi.c b/C/absmi.c
index 9dcf31a7b..ad4f153b6 100644
--- a/C/absmi.c
+++ b/C/absmi.c
@@ -8562,7 +8562,7 @@ Yap_absmi(int inp)
       d0 = XREG(PREG->u.xl.x);
       deref_head(d0, atom_x_unk);
     atom_x_nvar:
-      if (IsAtomTerm(d0)) {
+      if (IsAtomTerm(d0) && !IsBlob(AtomOfTerm(d0))) {
 	PREG = NEXTOP(PREG, xl);
 	GONext();
       }
@@ -8586,7 +8586,7 @@ Yap_absmi(int inp)
       d0 = *pt0;
       deref_head(d0, atom_y_unk);
     atom_y_nvar:
-      if (IsAtomTerm(d0)) {
+      if (IsAtomTerm(d0) && !IsBlob(AtomOfTerm(d0))) {
 	PREG = NEXTOP(PREG, yl);
 	GONext();
       }
diff --git a/C/inlines.c b/C/inlines.c
index 218123292..59a563a46 100644
--- a/C/inlines.c
+++ b/C/inlines.c
@@ -47,7 +47,7 @@ p_atom( USES_REGS1 )
       d0 = ARG1;
       deref_head(d0, atom_unk);
     atom_nvar:
-      if (IsAtomTerm(d0)) {
+      if (IsAtomTerm(d0)  && !IsBlob(AtomOfTerm(d0))) {
 	return(TRUE);
       }
       else {