gsch2pcb crashes, windows

[MCN]

$ gsch2pcb.exe button.prj
Backtrace:
In current input:
   1: 0* [gsch2pcb "button.new.pcb"]
   ?: 1 (letrec (#) (let* # # ...) ...)
In C:\GEDA\share\gEDA\scheme/gnet-gsch2pcb.scm:
 193: 2* (if gsch2pcb:use-m4 (let* # # # ...) (let # # # ...))
 195: 3 (let* (#) (display "Using the m4 processor for pcb footprints
") ...)
 195: 4* [open-output-pipe "/usr/bin/m4 -d -I/home/dj/nightly-geda/build/result/share/pcb/pcb/m4 -I$HOME/.pcb -I. /home/dj/nightly-geda/build/result/share/pcb/pcb/m4/common.m4 - >> button.new.pcb"]
In C:\GEDA\share\guile\1.8/ice-9/popen.scm:
 211: 5 [open-pipe "/usr/bin/m4 -d -I/home/dj/nightly-geda/build/result/share/pcb/pcb/m4 -I$HOME/.pcb -I. /home/dj/nightly-geda/build/result/share/pcb/pcb/m4/common.m4 - >> button.new.pcb" ...]
In unknown file:
    ...
   ?: 6 [open-pipe* "w" "/bin/sh" ...]
In C:\GEDA\share\guile\1.8/ice-9/popen.scm:
 142: 7 (let* ((port/pid #) (port #)) (pipe-guardian port) ...)
 142: 8* [apply #<procedure open-process (mode prog . args)> "w" ...]
In unknown file:
   ?: 9 [open-process "w" "/bin/sh" ...]
In C:\GEDA\share\guile\1.8/ice-9/popen.scm:
    ...
  59: 10 (let* ((pid #)) (cond (# # #) (else # # #)))
  59: 11* (primitive-fork)

C:\GEDA\share\guile\1.8/ice-9/popen.scm:59:16: In expression (primitive-fork):
C:\GEDA\share\guile\1.8/ice-9/popen.scm:59:16: Unbound variable: primitive-fork
Failed to run gnetlist