alphaserv1 # guile -v
Guile 1.8.8
Copyright (c) 1995, 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008 Free Software Foundation
Guile may be distributed under the terms of the GNU General Public Licence;
certain other uses are permitted as well.  For details, see the file
`COPYING', which is included in the Guile distribution.
There is no warranty, to the extent permitted by law.
 

alphaserv1 # guile

Backtrace:
In unknown file:
   ?: 129* [#<procedure #f ()>]
   ?: 130* (let* ((file #)) (cond (# => #) (# => #)))
   ?: 131  [#<procedure #f (full)> "/usr/pkg/share/guile/1.8/ice-9/debug.scm"]
   ?: 132  [with-fluid* #<fluid 7> #f #<procedure #f ()>]
   ?: 133* [#<procedure #f ()>]
   ?: 134* [load-file #<primitive-procedure primitive-load> ...]
   ?: 135* [save-module-excursion #<procedure #f ()>]
   ?: 136  (let (# #) (dynamic-wind # thunk #))
   ?: 137  [dynamic-wind #<procedure #f ()> #<procedure #f ()> #<procedure #f ()>]
   ?: 138* [#<procedure #f ()>]
   ?: 139* [primitive-load "/usr/pkg/share/guile/1.8/ice-9/debug.scm"]
In /usr/pkg/share/guile/1.8/ice-9/debug.scm:
  22: 140* (define-module (ice-9 debug) :export ...)
In unknown file:
   ?: 141* [copy-tree ...
   ?: 142* [apply #<procedure #f args> (# :export #)]
   ?: 143  [#<procedure #f args> (ice-9 debug) :export ...]
   ?: 144  (quasiquote (eval-case (# #) (else #)))
   ?: 145* [compile-define-module-args (# :export #)]
   ?: 146  [loop ...
   ?: 147* (quasiquote ((quote (unquote #))))
   ?: 148* (car args)

<unnamed port>: In expression (car args):
<unnamed port>: Stack overflow