- (let ((book-open (gdk:pixbuf-new-from-xpm-data book-open-xpm))
- (book-closed (gdk:pixbuf-new-from-xpm-data book-closed-xpm))
+ (let ((book-open (make-instance 'gdk:pixbuf :source book-open-xpm))
+ (book-closed (make-instance 'gdk:pixbuf :source book-closed-xpm))