From 521d65c058f48ddb8aa1291de8775aa23f1ea7b7 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Thu, 1 Sep 2011 06:11:38 -0700
Subject: [PATCH] fix oops in try_open

---
 C/save.c | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/C/save.c b/C/save.c
index dd69ecb20..40660b45d 100644
--- a/C/save.c
+++ b/C/save.c
@@ -1419,9 +1419,10 @@ static int try_open(char *inpf, CELL *Astate, CELL *ATrail, CELL *AStack, CELL *
   int mode;
 
   if (streamp) {
-    if ((*streamp = Sopen_file(inpf, "rb")))
-      return FAIL_RESTORE;    
-    return DO_ONLY_CODE;
+    if ((*streamp = Sopen_file(inpf, "rb"))) {
+      return DO_ONLY_CODE;
+    }
+    return FAIL_RESTORE;
   }
   if ((splfild = open_file(inpf, O_RDONLY)) < 0) {
     return FAIL_RESTORE;