diff --git a/lisp/install-clasp-bin.lisp b/lisp/install-clasp-bin.lisp
index 6dd42f9..4ba24ad 100644
--- a/lisp/install-clasp-bin.lisp
+++ b/lisp/install-clasp-bin.lisp
@@ -39,7 +39,7 @@
          (uiop/filesystem:delete-directory-tree
           path :validate t))
     (ql-impl-util:rename-directory
-     (merge-pathnames (format nil "~@{~A~}" "clasp-" version "-x86-64-" uname "/build") impls)
+     (merge-pathnames (format nil "~@{~A~}" "clasp-" version "-x86-64-" uname "/") impls)
      (merge-pathnames (opt "as") impls)))
   (cons t argv))
 
diff --git a/src/cmd-run-clasp.c b/src/cmd-run-clasp.c
index ffc9815..23645f1 100644
--- a/src/cmd-run-clasp.c
+++ b/src/cmd-run-clasp.c
@@ -15,7 +15,7 @@ char** cmd_run_clasp(int argc,char** argv,struct sub_command* cmd) {
 
   LVal ret=0;
 
-  char *bin=cat(home,impl_path,SLASH,"boehm/iclasp-boehm",EXE_EXTENTION,NULL);
+  char *bin=cat(home,impl_path,SLASH,"build/boehm/iclasp-boehm",EXE_EXTENTION,NULL);
   s(arch),s(os);
   ret=conss(bin,ret);
   s(impl_path);