component-library-search fails on windows build

[KaiMartin]

The recursive component-library-search procedure fails with the currrent build of geda-gaf for windows.
( ftp://ftp.delorie.com/pub/geda-windows/snapshots/geda-gaf-20130118.tar.gz )

These lines in gafrc expose the problem:
/-------------
(define gedasymbols (build-path (getenv "HOME") "geda" "symbols"))
(component-library-search gedasymbols)
\-------------

On start-up of gschem, there is a pop-up window that complains about an unbound "getuid" expression. The GUI appears, but no symbols appear.

There is a backtrace in the log window:
/-----------------
gEDA/gschem version 1.9.0.20121203
gEDA/gschem comes with ABSOLUTELY NO WARRANTY; see COPYING for more details.
This is free software, and you are welcome to redistribute it under certain
conditions; please see the COPYING file for more details.

Read init scm file [D:\Programme\gEDA\gEDA\share\gEDA\scheme/gschem.scm]
Loaded RC file [d:\programme\geda\geda\share\geda\system-gafrc]

Backtrace:
In d:\system\users\klaus\.geda\gafrc:
  20: 0* [component-library-search "d:\\\\System\\Users\\Klaus\\geda\\symbols"]
In unknown file:
   ?: 1 (let-optional* lambda*:G43 (prefix) ...)
In D:\Programme\gEDA\gEDA\share\gEDA\scheme/geda.scm:
   ...
  58: 2 (let* ((dht #)) (ftw rootdir (lambda # # ...)) ...)
  60: 3* [ftw "d:\\\\System\\Users\\Klaus\\geda\\symbols" #<procedure #f #>]
In D:\Programme\gEDA\gEDA\share\guile\1.8/ice-9/ftw.scm:
 297: 4 (let* ((visited? #) (stat&flag #)) (letrec (#) (catch # # #)))
 299: 5* [stat&flag-proc ...
 300: 6* [stat-dir-readable?-proc ...
 300: 7* (getuid)

D:\Programme\gEDA\gEDA\share\guile\1.8/ice-9/ftw.scm:300:47: In expression (getuid):
D:\Programme\gEDA\gEDA\share\guile\1.8/ice-9/ftw.scm:300:47: Unbound variable: getuid
ERROR: Failed to load RC file [d:\system\users\klaus\.geda\gafrc]: Unbound variable: getuid

Loaded RC file [d:\programme\geda\geda\share\geda\system-gschemrc]
Loaded RC file [d:\system\users\klaus\.geda\gschemrc]
New file [D:\Programme\gEDA\gEDA\bin\untitled_1.sch]
Component [title-block.sym] was not found in the component library
\-----------------