gEDA-user: Circuit Simulators - again

[Matt Flax <flatmax@ieee.org>]

with reference to this article :
http://www.mail-archive.com/geda-user@geda.seul.org/msg00010.html

I have altered my gschemrc to look like so 
_________________ begin .gEDA/gschemrc______________
;
;gschem->ngspice->gwave direct view
;
(define (direct-gwave)
  (let* ((filename-without-suffix (substring (get-selected-filename) 0
(string-index 
(get-selected-filename) #\.)))
         (filename-sch (get-selected-filename))
         (filename-cir (string-append filename-without-suffix ".cir"))
         (filename-raw (string-append filename-without-suffix ".raw"))
         (netlister "gnetlist")
         (simulator "ngspice")
         (viewer "gwave"))
    (system (string-append netlister " -g spice " filename-sch " -o "
filename-cir))
    (system (string-append simulator " -r " filename-raw " -b "
filename-cir ))
    (system (string-append viewer " " filename-raw " &"))))

(define (simulation)
  (let* ((filename-without-suffix (substring (get-selected-filename) 0
(string-index 
(get-selected-filename) #\.)))
         (filename-sch (get-selected-filename))
         (filename-cir (string-append filename-without-suffix ".cir"))
         (filename-raw (string-append filename-without-suffix ".raw"))
         (netlister "/usr/local/bin/gnetlist")
         (simulator "/usr/local/bin/ngspice"))
    (file-save)
    (system (string-append netlister " -g spice " filename-sch " -o "
filename-cir))
    (system (string-append simulator " -r " filename-raw " -b "
filename-cir ))))

("1" . direct-gwave)
_______________ end gschemrc___________

But upon starting gschem I get the following error :
 gschem direct-gwave-test.sch 
gEDA/gschem version 20010722
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.

Error : wrong-number-of-args [C:20 L:28] in /home/flatmax/.gEDA/gschemrc
Most recently read form: (1 . direct-gwave)
Loading schematic [direct-gwave-test.sch]


Also, does this mean that when operating gschem you can just push '1' to
operate ngspice ????

thanks
Matt

-- 
http://mffm.darktech.org

WSOLA TimeScale Audio Mod  : http://mffmtimescale.sourceforge.net/
FFTw C++                   : http://mffmfftwrapper.sourceforge.net/
Vector Bass                : http://mffmvectorbass.sourceforge.net/
Multimedia Time Code       : http://mffmtimecode.sourceforge.net/