--- script/harch.orig	Tue Mar 19 13:20:39 2002
+++ script/harch	Tue Mar 19 13:22:26 2002
@@ -13,8 +13,8 @@
 
 if uname >/dev/null 2>&1
 then
-  if uname -p >/dev/null 2>&1
-  then PROCESSOR=`uname -p`
+  if uname -m >/dev/null 2>&1
+  then PROCESSOR=`uname -m`
     case "$PROCESSOR" in
     unknown|*\ *)
       PROCESSOR=`uname -m`
