Bug 16483

При нажатии на кнопку Expert mode:

#f skip_system=#t skip_primary=#t
list groups
skipping system groups
skipping primary groups
backtrace:
In /usr/share/guile/1.6/alterator/woo.scm:
    ...
  85: 57  [catch woo-error #<procedure #f ()> #<procedure #f (key arg . rest)>]
In unknown file:
   ?: 58* [#<procedure #f ()>]
   ?: 59* (let ((data #)) (label-id text (string-append "<b>" # ...)) ...)
   ?: 60* [woo-read-first "/groups/expert/" name ...
   ?: 61* (or (selector-id value) "")
   ?: 62* [#<procedure #f args> #<procedure value args>]
In /usr/share/guile/1.6/alterator/object.scm:
  77: 63  (if (procedure? object) (apply object args) object)
In /usr/share/guile/1.6/alterator/presentation/args.scm:
    ...
  42: 64  (let (#) (if # # result))
  42: 65* [get #<procedure #f args> #<procedure value args>]
In unknown file:
   ?: 66  [apply #<procedure run-operation #> #<procedure #f args> get ...]
In /usr/share/guile/1.6/alterator/presentation/container.scm:
    ...
 212: 67  [with-fluids* (#<fluid 11>) (((globals # #))) #<procedure #f ()>]
In unknown file:
   ?: 68* [#<procedure #f ()>]
In /usr/share/guile/1.6/alterator/presentation/container.scm:
 212: 69* [#<procedure #f ()>]
 151: 70  [meta-get #<procedure value args> #<procedure #f args>]
In /usr/share/guile/1.6/alterator/lookout/evaluation.scm:
    ...
 260: 71  [list-ref () 0]
In unknown file:
   ?: 72* [#<procedure #f (key . args)> out-of-range "list-ref" ...]
In /usr/share/guile/1.6/alterator/exit-handler.scm:
  21: 73* (or (eq? key #) (begin # #))
  22: 74  (begin (format #t "backtrace:~%") (display-backtrace # #))
  23: 75  [display-backtrace ...
  23: 76* [gsubr-apply #<primitive-procedure make-stack> #t]
/usr/share/guile/1.6/alterator/exit-handler.scm:27:6: In procedure list-ref in e
xpression (apply throw args):
/usr/share/guile/1.6/alterator/exit-handler.scm:27:6: Argument 2 out of range: 0