diff --git a/src/cmd/INIT/ar.ibm.risc b/src/cmd/INIT/ar.ibm.risc
index 0247643e7..022dc08b6 100755
--- a/src/cmd/INIT/ar.ibm.risc
+++ b/src/cmd/INIT/ar.ibm.risc
@@ -1,4 +1,4 @@
-: stupid stupid stupid to require a non-standard option for ar to work : 2009-10-06 :
+: ar requires a non-standard option to work : 2009-10-06 :
 
 op=$1
 shift
diff --git a/src/cmd/INIT/ar.ibm.risc-64 b/src/cmd/INIT/ar.ibm.risc-64
new file mode 100755
index 000000000..ca3122b2c
--- /dev/null
+++ b/src/cmd/INIT/ar.ibm.risc-64
@@ -0,0 +1,9 @@
+: ar requires a non-standard option to work : 2022-01-14 :
+
+op=$1
+shift
+case $op in
+-*)	;;
+*)	op=-$op ;;
+esac
+/usr/bin/ar -X64 "$op" "$@"