add missing lock acquire

racket/src/link-all.rkt

@@ -167,6 +167,7 @@
 (void
  (parameterize ([current-pkg-scope (path->complete-path devel-pkgs-dir)])
    (define (is-auto? name) (not (set-member? pkgs name)))
+   (with-pkg-lock
     (pkg-install (for/list ([name (in-list (sort (set->list all-pkgs)
                                                  ;; Non-auto before auto:
                                                  (lambda (a b)
@@ -182,7 +183,7 @@
                    (pkg-desc (path->string dir)
                              'static-link
                              #f
-                            auto?)))))
+                             auto?))))))
 
 ;; link configuration
 (unless (file-exists? config-file-path)