Error when creating new frame

[jpff]

I attempted to create a new frame from the File menu.
The frame is created but I always get this error:
 
Debugger entered--Lisp error: (wrong-number-of-arguments #[nil 
"=8c0=8c1!=83
=8c1=8c2!=88=8c0=8c3!=85=8c3=8c2!=87" [functionp tool-bar-mode -1 
blink-cursor-mode] 2] 1)
  #[nil "=8c0=8c1!=83\n=8c1=8c2!=88=8c0=8c3!=85=8c3=8c2!=87" [functionp 
tool-bar-mode -1 blink-cursor-mode] 2](#<frame address@hidden 
0x9312880>)
  run-hook-with-args(#[nil 
"=8c0=8c1!=83\n=8c1=8c2!=88=8c0=8c3!=85=8c3=8c2!=87" [functionp 
tool-bar-mode -1 blink-cursor-mode] 2] #<frame address@hidden 
0x9312880>)
  make-frame()
  make-frame-command()
  call-interactively(make-frame-command)

As far as I can tell the problem is my initialisation
(setq after-make-frame-functions
      (function (lambda (f) (tool-bar-mode -1))))

But the documentation for after-make-frame-functions suggests this is
correct and I call (tool-bar-mode -1) always in .emacs

I really cannot see the problem and it did work in emac 21


In GNU Emacs 22.0.97.4 (i686-pc-linux-gnu, X toolkit, Xaw3d scroll bars)
 of 2007-04-07 on cardew
Windowing system distributor `The X.Org Foundation', version 11.0.70199902
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_GB.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Debugger

Minor modes in effect:
  erc-menu-mode: t
  erc-autojoin-mode: t
  erc-ring-mode: t
  erc-pcomplete-mode: t
  erc-track-mode: t
  erc-track-minor-mode: t
  erc-match-mode: t
  erc-button-mode: t
  erc-fill-mode: t
  erc-stamp-mode: t
  erc-netsplit-mode: t
  erc-irccontrols-mode: t
  erc-noncommands-mode: t
  erc-readonly-mode: t
  show-paren-mode: t
  display-time-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
<return> <help-echo> <help-echo> <menu-bar> <ERC> <Join 
channel...> # c s o u n d <return> <help-echo> <help-echo> 
<switch-frame> <down-mouse-1> <mouse-movement> <mouse-movement> 
<drag-mouse-1> M-x e m a c s - b <tab> <backspace> 
<tab> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> b u g <tab> <backspace> <backspace> 
<backspace> r e p <tab> o <tab> r t <tab> <return>

Recent messages:
Computing summary lines...done
Saving file /home/jpff/RMAIL...
Wrote /home/jpff/RMAIL
Loading debug...done
Entering debugger...
Loading erc...done
Connecting to irc.freenode.org:6667... ...done
Logging in as 'jpff'... done
Making completion list... [3 times]
Loading emacsbug...done

==John ffitch