Fix Hitch reload action

tribes/services/hitch.scm

@@ -95,22 +95,10 @@
 
 (define (hitch-reload-procedure package)
   #~(lambda _
-      (use-modules (ice-9 popen)
-                   (ice-9 rdelim))
-      (let* ((port (open-pipe* OPEN_READ
-                               #$(file-append procps "/bin/pidof")
-                               "hitch"))
-             (line (read-line port))
-             (status (close-pipe port)))
-        (and (zero? status)
-             (string? line)
-             (not (eof-object? line))
-             (let ((pid (string->number
-                         (car (string-tokenize line)))))
-               (and pid
-                    (zero? (system* #$(file-append coreutils "/bin/kill")
-                                    "-HUP"
-                                    (number->string pid)))))))))
+      (zero? (system* #$(file-append procps "/bin/pkill")
+                      "-HUP"
+                      "-x"
+                      "hitch"))))
 
 (define (hitch-shepherd-services config)
   (let ((config-file (hitch-config-file config))