diff --git a/code/filesys.lisp b/code/filesys.lisp
index 319f18a0babb068594b97fadfe5fcb696ac01a1f..223a4c763640d4887d2ba63709863e4603fe18b5 100644
--- a/code/filesys.lisp
+++ b/code/filesys.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.4 1990/11/03 00:23:13 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/filesys.lisp,v 1.5 1990/11/09 23:37:20 wlott Exp $
 ;;;
 ;;; Ugly pathname functions for Spice Lisp.
 ;;;    these functions are part of the standard Spice Lisp environment.
@@ -31,11 +31,12 @@
 
 (in-package "EXTENSIONS")
 (export '(print-directory complete-file ambiguous-files default-directory
-			  file-writable))
+			  file-writable unix-namestring))
 (in-package "LISP")
 
 
-;;; Pathname structure
+
+;;; Pathname structure
 
 
 ;;; *Default-Pathname-defaults* has all values unspecified except for the
@@ -415,7 +416,9 @@
      (declare (simple-string ,var))
      ,@body))
 
-(defun unix-namestring (pathname for-input)
+;;; UNIX-NAMESTRING -- public
+;;; 
+(defun unix-namestring (pathname &optional (for-input t))
   "Convert PATHNAME into a string that can be used with UNIX system calls."
   (let* ((pathname (if (pathnamep pathname) pathname (pathname pathname)))
 	 (device (%pathname-device pathname)))