3 files changed, 7 insertions, 11 deletions
diff --git a/src/interp/br-data.boot b/src/interp/br-data.boot
index 3c44428f..0b761a15 100644
--- a/src/interp/br-data.boot
+++ b/src/interp/br-data.boot
@@ -1,6 +1,6 @@
 -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
 -- All rights reserved.
--- Copyright (C) 2007-2012, Gabriel Dos Reis.
+-- Copyright (C) 2007-2014, Gabriel Dos Reis.
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -221,7 +221,7 @@ buildLibAttr(name,argl,pred) ==
 
 dbAugmentConstructorDataTable() ==
   instream := MAKE_-INSTREAM '"libdb.text"
-  while not EOFP instream repeat
+  while not eof? instream repeat
     fp   := FILE_-POSITION instream
     line := readLine instream
     cname := makeSymbol dbName line
diff --git a/src/interp/topics.boot b/src/interp/topics.boot
index 981b3657..860a8ab4 100644
--- a/src/interp/topics.boot
+++ b/src/interp/topics.boot
@@ -1,6 +1,6 @@
 -- Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
 -- All rights reserved.
--- Copyright (C) 2007-2012, Gabriel Dos Reis.
+-- Copyright (C) 2007-2014, Gabriel Dos Reis.
 -- All rights reserved.
 --
 -- Redistribution and use in source and binary forms, with or without
@@ -92,7 +92,7 @@ mkTopicHashTable() ==                         --given $groupAssoc = ((extended .
       tableValue($defaultsHash,item) := [kind,:tableValue($defaultsHash,item)]
   $conTopicHash  := hashTable 'EQL      --key is constructor name; value is
   instream := inputTextFile '"topics.data"           
-  while not EOFP instream repeat
+  while not eof? instream repeat
     line := readLine instream
     while blankLine? line repeat line := readLine instream
     m := maxIndex line                        --file "topics.data" has form:
diff --git a/src/interp/vmlisp.lisp b/src/interp/vmlisp.lisp
index 68735213..cbb6de78 100644
--- a/src/interp/vmlisp.lisp
+++ b/src/interp/vmlisp.lisp
@@ -1,6 +1,6 @@
 ;; Copyright (c) 1991-2002, The Numerical Algorithms Group Ltd.
 ;; All rights reserved.
-;; Copyright (C) 2007-2013, Gabriel Dos Reis.
+;; Copyright (C) 2007-2014, Gabriel Dos Reis.
 ;; All rights reserved.
 ;;
 ;; Redistribution and use in source and binary forms, with or without
@@ -914,15 +914,13 @@
  (declare (ignore recnum))
    (cond ((numberp filespec) (make-synonym-stream '*standard-input*))
          ((null filespec) (error "not handled yet"))
-         (t (open (|makeInputFilename| filespec)
-                  :direction :input :if-does-not-exist nil))))
+         (t (|inputTextFile| (|makeInputFilename| filespec)))))
 
 (defun MAKE-OUTSTREAM (filespec &optional (width nil) (recnum 0))
  (declare (ignore width) (ignore recnum))
    (cond ((numberp filespec) (make-synonym-stream '*standard-output*))
          ((null filespec) (error "not handled yet"))
-         (t (open (|makeFilename| filespec) :direction :output
-		  :if-exists :supersede))))
+         (t (|outputTextFile| (|makeFilename| filespec)))))
 
 (defun MAKE-APPENDSTREAM (filespec &optional (width nil) (recnum 0))
  "fortran support"
@@ -954,8 +952,6 @@
 (defun shut (st) (if (|ioTerminal?| st) st
                    (if (streamp st) (close st) -1)))
 
-(defun EOFP (stream) (null (peek-char nil stream nil nil)))
-
 ; 28.0 Key addressed I/O