diff --git a/tekuti/util.scm b/tekuti/util.scm
index e12bf00..ceb3300 100644
--- a/tekuti/util.scm
+++ b/tekuti/util.scm
@@ -89,7 +89,7 @@
   (let ((parts (string-split path #\/)))
     (if (eqv? (string-ref (car parts) 0) #\~)
         (let ((user (if (= (string-length (car parts)) 1)
-                        (vector-ref (getpwuid (getuid)) 0)
+                        (passwd:name (getpwuid (geteuid)))
                         (substring (car parts) 1))))
           (string-join (cons (passwd:dir (getpwnam user)) (cdr parts)) "/"))
         path)))