diff --git a/guix/packages.scm b/guix/packages.scm
index 143417b8611ab7af0602c685ef2c96120487173d..b92ed0ab0cd62d116c90f00cc31f6b241476fef9 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -351,7 +351,7 @@ (define (goto port line column)
 
   (match (package-location package)
     (($ <location> file line column)
-     (catch 'system
+     (catch 'system-error
        (lambda ()
          ;; In general we want to keep relative file names for modules.
          (with-fluids ((%file-port-name-canonicalization 'relative))