diff --git a/code/exports.lisp b/code/exports.lisp
index 8aacab0cd7280e4c6d41c735491e6a81d99e2f2a..3a52e9c696716522e46d57ade390365853e72eb8 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.236 2004/09/24 14:59:53 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.237 2004/10/16 23:49:05 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -329,7 +329,23 @@
 	   "UNIX-GETPWNAM" "UNIX-GETPWUID" "UNIX-GETGRNAM" "UNIX-GETGRGID"
 	   "USER-INFO" "USER-INFO-NAME" "USER-INFO-PASSWORD" "USER-INFO-UID"
 	   "USER-INFO-GID" "USER-INFO-GECOS" "USER-INFO-DIR" "USER-INFO-SHELL"
-	   "GROUP-INFO" "GROUP-INFO-NAME" "GROUP-INFO-GID" "GROUP-INFO-MEMBERS"))
+	   "GROUP-INFO" "GROUP-INFO-NAME" "GROUP-INFO-GID" "GROUP-INFO-MEMBERS")
+  #+ppc
+  (:export "UNIX-GETPWUID"
+	   "USER-INFO"
+	   "USER-INFO-SHELL"
+	   "USER-INFO-GECOS"
+	   "UNIX-GETPWNAM"
+	   "GROUP-INFO-NAME"
+	   "GROUP-INFO-MEMBERS"
+	   "USER-INFO-NAME"
+	   "USER-INFO-PASSWORD"
+	   "GROUP-INFO"
+	   "USER-INFO-UID"
+	   "USER-INFO-DIR"
+	   "USER-INFO-GID"
+	   "GROUP-INFO-GID")
+  )
   
 (defpackage "FORMAT")