diff --git a/ice-9/ChangeLog b/ice-9/ChangeLog
index a7201200e..ae3084e87 100644
--- a/ice-9/ChangeLog
+++ b/ice-9/ChangeLog
@@ -1,3 +1,9 @@
+2002-06-01  Gary Houston  <ghouston@arglist.com>
+
+	* boot-9.scm (file-set-position): Make third argument optional,
+	for SCM compatibility.
+	(file-position): simplify definition.
+
 2002-06-01  Marius Vollmer  <mvo@zagadka.ping.de>
 
 	* boot-9.scm (file-set-position): Use seek instead of fseek.
diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 73878cdb6..e51bf39bd 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -525,8 +525,10 @@
 (define (tms:cutime obj) (vector-ref obj 3))
 (define (tms:cstime obj) (vector-ref obj 4))
 
-(define (file-position . args) (apply ftell args))
-(define (file-set-position . args) (apply seek args))
+(define file-position ftell)
+(define (file-set-position port offset . whence)
+  (let ((whence (if (eq? whence '()) SEEK_SET (car whence))))
+    (seek port offset whence)))
 
 (define (move->fdes fd/port fd)
   (cond ((integer? fd/port)