(let* ((getVideoDriver (get-irrlicht-proc "getVideoDriver" device))
(driver (getVideoDriver device)))
(if (null-object? driver)
- (error "In procedure get-video-driver: Driver cannot be created")
+ (error "In procedure get-video-driver: Driver unavailable")
driver)))
(define-method (is-window-active? (device <irrlicht-device>))