diff --git a/code/bsd-os.lisp b/code/bsd-os.lisp
index b1a673e5232d15d6b3c8d252439fddd9f1adf58c..10ce26b1d401dbae160689aa5b4835ebd31f1ffd 100644
--- a/code/bsd-os.lisp
+++ b/code/bsd-os.lisp
@@ -5,16 +5,16 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bsd-os.lisp,v 1.1 1997/01/18 14:30:43 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/bsd-os.lisp,v 1.2 1998/03/03 12:20:32 pw Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; OS interface functions for CMU CL under Mach.
+;;; OS interface functions for CMU CL under BSD Unix.
 ;;;
 ;;; Written and maintained mostly by Skef Wholey and Rob MacLachlan.
 ;;; Scott Fahlman, Dan Aronson, and Steve Handerson did stuff here, too.
 ;;;
-;;; Hacked into (Free)bsd-os.lisp /Werkowski
+;;; Hacked into (Free)bsd-os.lisp by Paul Werkowski.
 
 (in-package "SYSTEM")
 (use-package "EXTENSIONS")
@@ -23,13 +23,13 @@
 (pushnew :bsd *features*)
 (pushnew :freebsd *features*)
 
-(setq *software-type* "FreeBSD/4.4Lite")
+(setq *software-type* #+FreeBSD "FreeBSD" #-FreeBSD "BSD")
 
 (defun software-version ()
   "Returns a string describing version of the supporting software."
   (string-trim '(#\newline)
 	       (with-output-to-string (stream)
-		 (run-program "/usr/bin/uname" '("-sr") :output stream))))
+		 (run-program "/usr/bin/uname" '("-r") :output stream))))
 
 
 ;;; OS-Init initializes our operating-system interface.  It sets the values
@@ -63,4 +63,3 @@
 (defun get-page-size ()
   ;; probably should call getpagesize()
   4096)
-