CAIRO:SURFACE-HEIGHT gives wrong result in CLIP-IMAGE

Hi,

The PNG image used in the CLIP-IMAGE snippet is 256 by 192.
However, the CAIRO:SURFACE-HEIGHT call in the CLIP-IMAGE snippet 
in clg/examples/testcairo.lisp returns 1024.  If I define another
binding to "cairo_image_surface_get_height" such as

(gffi:defbinding (get-h "cairo_image_surface_get_height") () gffi:int
  (cr cairo:image-surface))
 
I can get the correct height:

(let ((image (make-instance 'cairo:image-surface 
                            :filename #p"clg:examples;romedalen.png")))
  (get-h image))
--> 192

Could someone look into this?

Best,

-cph

-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems?  Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/