$ cat dbus-server-test.scm

(import chicken scheme)

(use dbus)

(define (turn-right) (printf "car is turning to the right~%"))
(define (turn-left) (printf "car is turning to the left~%"))

(define rc-car-context
  (make-context
   service: 'com.trolltech.CarExample
   path: '/Car
   interface: 'com.trolltech.Examples.CarInterface ))

(enable-polling-thread! enable: #f)

(register-method rc-car-context "turnRight" turn-right)
(register-method rc-car-context "turnLeft" turn-left)

(let loop ()
  (poll-for-message)
  (loop))

$ csi -s dbus-server-test.scm

Error: (assq) bad argument type: #f

        Call history:

        <syntax>          (##core#app (##core#letrec* ((loop (##core#loop-lambda () (poll-for-message) (loop)))) loop))
        <syntax>          (##core#letrec* ((loop (##core#loop-lambda () (poll-for-message) (loop)))) loop)
        <syntax>          (##core#let ((loop (##core#undefined))) (##core#set! loop (##core#loop-lambda () (poll-for-message) ...
        <syntax>          (##core#begin (##core#set! loop (##core#loop-lambda () (poll-for-message) (loop))) (##core#let () lo......
        <syntax>          (##core#set! loop (##core#loop-lambda () (poll-for-message) (loop)))
        <syntax>          (##core#loop-lambda () (poll-for-message) (loop))
        <syntax>          (lambda () (poll-for-message) (loop))
        <syntax>          (##core#lambda () (poll-for-message) (loop))
        <syntax>          (##core#begin (poll-for-message) (loop))
        <syntax>          (poll-for-message)
        <syntax>          (loop)
        <syntax>          (##core#let () loop)
        <syntax>          (##core#begin loop)
        <syntax>          (##core#undefined)
        <eval>    ((##core#letrec* ((loop (##core#loop-lambda () (poll-for-message) (loop)))) loop))
        <eval>    (poll-for-message)    <--