devops (host-scheme-architecture): Fix.

diff --git a/src/devops/devops.scm b/src/devops/devops.scm
index 205638e80a4f83f1f5343e130d1f15c32100660c..42c4520886287910055bc3c49ee0ce90a0ab3c12 100644 (file)
--- a/src/devops/devops.scm
+++ b/src/devops/devops.scm
@@ -686,10 +686,11 @@ Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA.
 (define (host-ubuntu? host)
   (os-ubuntu? (host-os host)))
 
-(define (host-scheme-architecture darch)
-  (cond ((string=? "amd64" darch) "x86-64")
-       ((string=? "i386"  darch) "i386")
-       (else (error "unknown Debian architecture:" darch))))
+(define (host-scheme-architecture host)
+  (let ((darch (host-debian-architecture host)))
+    (cond ((string=? "amd64" darch) "x86-64")
+         ((string=? "i386"  darch) "i386")
+         (else (error "unknown Debian architecture:" darch)))))
 
 (define (host-ubuntu-codename host)
   (ubuntu-os-codename (host-os host)))