diff --git a/code/lispinit.lisp b/code/lispinit.lisp
index 1fcc36e9eda66e0b8057d43e9fdaaa8f4d1eee7e..98f068c8d10b5e676c27d7d4f2eaf17c8c82601e 100644
--- a/code/lispinit.lisp
+++ b/code/lispinit.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.30 1992/02/21 21:59:55 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.31 1992/02/29 02:29:50 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -586,14 +586,6 @@
   #+nil
   (add-port-object *task-notify* nil *kernel-messages*))
 
-;;; OS-Init initializes our operating-system interface.  It sets the values
-;;; of the global port variables to what they should be and calls the functions
-;;; that set up the argument blocks for the server interfaces.
-
-(defun os-init ()
-  (setf *task-self* (mach:mach-task_self))
-  (setf *task-data* (mach:mach-task_data))
-  (setf *task-notify* (mach:mach-task_notify)))
 
 
 ;;;; Miscellaneous external functions:
diff --git a/code/mach-os.lisp b/code/mach-os.lisp
index 72da118551a4e2707451781fb6dabaff77a34f4d..f644f71676eacdf86b4b8cd79a416f63e5e8d149 100644
--- a/code/mach-os.lisp
+++ b/code/mach-os.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach-os.lisp,v 1.6 1992/02/20 23:03:11 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/mach-os.lisp,v 1.7 1992/02/29 02:29:53 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -18,7 +18,7 @@
 ;;;
 (in-package "SYSTEM")
 (use-package "EXTENSIONS")
-(export '(get-system-info get-page-size))
+(export '(get-system-info get-page-size os-init))
 
 (pushnew :mach *features*)
 (setq *software-type* "MACH/4.3BSD")
@@ -33,6 +33,16 @@
 		 (run-program "/usr/cs/etc/version" ; Site dependent???
 			      nil :output stream))))
 
+;;; OS-Init initializes our operating-system interface.  It sets the values
+;;; of the global port variables to what they should be and calls the functions
+;;; that set up the argument blocks for the server interfaces.
+
+(defun os-init ()
+  (setf *task-self* (mach:mach-task_self))
+  (setf *task-data* (mach:mach-task_data))
+  (setf *task-notify* (mach:mach-task_notify)))
+
+
 ;;; GET-SYSTEM-INFO  --  Interface
 ;;;
 ;;;    Return system time, user time and number of page faults.  For
diff --git a/code/sunos-os.lisp b/code/sunos-os.lisp
index c412c206ec5994d08138efc35774f9c82e9ceb0e..69c1a920163af6588ea6d8501f414b58299a340e 100644
--- a/code/sunos-os.lisp
+++ b/code/sunos-os.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sunos-os.lisp,v 1.3 1992/02/29 00:45:36 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/sunos-os.lisp,v 1.4 1992/02/29 02:29:54 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -16,7 +16,7 @@
 ;;;
 (in-package "SYSTEM")
 (use-package "EXTENSIONS")
-(export '(get-system-info get-page-size))
+(export '(get-system-info get-page-size os-init))
 
 (pushnew :sunos *features*)
 (setq *software-type* "SunOS")
@@ -45,12 +45,14 @@
 	      (subseq version-line (1+ second-space) third-space)))))
   *software-version*)
 
-;;; Decache version on save, because it might not be the same when we restart.
-;;;
-(pushnew #'(lambda ()
-	     (setq *sofware-version* nil))
-	 ext:*before-save-initializations*)
 
+;;; OS-INIT -- interface.
+;;;
+;;; Other OS dependent initializations.
+;;; 
+(defun os-init ()
+  ;; Decache version on save, because it might not be the same when we restart.
+  (setq *sofware-version* nil))
 
 ;;; GET-SYSTEM-INFO  --  Interface
 ;;;