X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fps-to-png.scm;h=7e94ac051601cc33056cbabbeb05a42a6ac585c9;hb=e2eb72d3d2070a3888df1f7e7907798833965baa;hp=e2a0d6cb205665eb10963ad615ea9f54cf498418;hpb=778c2d11b2c5fe2ec8ef3f531e92b331214de4e9;p=lilypond.git

diff --git a/scm/ps-to-png.scm b/scm/ps-to-png.scm
index e2a0d6cb20..7e94ac0516 100644
--- a/scm/ps-to-png.scm
+++ b/scm/ps-to-png.scm
@@ -34,7 +34,7 @@
 (define PLATFORM
   (string->symbol
    (string-downcase
-    (car (string-tokenize (vector-ref (uname) 0) char-set:letter)))))
+    (car (string-tokenize (utsname:sysname (uname)) char-set:letter)))))
 
 (define (re-sub re sub string)
   (regexp-substitute/global #f re string 'pre sub 'post))