# HG changeset patch
# User Carnë Draug <carandraug+dev@gmail.com>
# Date 1332120811 0
# Node ID a467f3e04b7ad92a404b05eacd4538c2f158c574
# Parent  6bed5141fdadcc03232e87af6c32e7a2603eb7fa
Fix incorrect call to getarchprefix.

* scripts/pkg/private/create_pkgadddel: Fix incorrect call to getarchprefix.

diff --git a/scripts/pkg/private/create_pkgadddel.m b/scripts/pkg/private/create_pkgadddel.m
--- a/scripts/pkg/private/create_pkgadddel.m
+++ b/scripts/pkg/private/create_pkgadddel.m
@@ -29,8 +29,8 @@
   ## architecture dependent directory so that the autoload/mfilename
   ## commands work as expected. The only part that doesn't is the
   ## part in the main directory.
-  archdir = fullfile (getarchprefix (desc), cstrcat (desc.name, "-",
-                      desc.version), getarch ());
+  archdir = fullfile (getarchprefix (desc, global_install), cstrcat (desc.name,
+                      "-", desc.version), getarch ());
   if (exist (getarchdir (desc, global_install), "dir"))
     archpkg = fullfile (getarchdir (desc, global_install), nm);
     archfid = fopen (archpkg, "at");