--- srclib/apr/build/config.guess.orig	Fri Nov 16 08:45:41 2001
+++ srclib/apr/build/config.guess	Fri Nov 16 08:49:41 2001
@@ -213,6 +213,9 @@
     *:OS390:*:* | *:OS/390:*:*)
 	echo s390-ibm-os390
 	exit 0 ;; 
+    *:OS400:*:* | *:OS/400:*:*) 
+	echo as400-ibm-os400
+	exit 0 ;;
     *:OS/2:*:*)
 	echo "i386-pc-os2_emx"
 	exit 0;;