From 8d579bb35d75fbe2454e895c80adb856c58d5f46 Mon Sep 17 00:00:00 2001
From: vsc <vsc@b08c6af1-5177-4d33-ba66-4b1c6b8b522a>
Date: Sat, 6 Apr 2002 00:06:24 +0000
Subject: [PATCH] fix previous fix

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@429 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
---
 pl/yio.yap | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/pl/yio.yap b/pl/yio.yap
index 8bab64dbc..dd4abdc6d 100644
--- a/pl/yio.yap
+++ b/pl/yio.yap
@@ -771,8 +771,9 @@ stream_property(Stream, Prop) :-  var(Prop), !,
 	'$stream_property'(Stream, Prop).
 stream_property(Stream, Props) :-  var(Stream), !,
 	'$current_stream'(_,_,Stream),
-	'$stream_property'(Stream, Props), !.
+	'$stream_property'(Stream, Props).
 stream_property(Stream, Props) :-
+	'$current_stream'(_,_,Stream), !,
 	'$stream_property'(Stream, Props).
 stream_property(Stream, Props) :-
 	throw(error(domain_error(stream,Stream),stream_property(Stream, Props))).