gtk: Fix gtk-widget-create-pango-layout's failure test.

diff --git a/src/gtk/gtk-widget.scm b/src/gtk/gtk-widget.scm
index 1ae1bba35ca5f26e0afad4c47934288a2f6713f3..e4ce63ed4fa24bab9dc6cc146fdc0fd9d9e23678 100644 (file)
--- a/src/gtk/gtk-widget.scm
+++ b/src/gtk/gtk-widget.scm
@@ -196,11 +196,12 @@ USA.
   (guarantee-gtk-widget widget 'gtk-widget-create-pango-layout)
   (if (not (default-object? text))
       (guarantee-string text 'gtk-widget-create-pango-layout))
-  (let ((layout (make-pango-layout)))
+  (let* ((layout (make-pango-layout))
+        (alien (gobject-alien layout)))
     (C-call "gtk_widget_create_pango_layout"
-           (gobject-alien layout) (gobject-alien widget)
+           alien (gobject-alien widget)
            (if (default-object? text) 0 text))
-    (error-if-null layout "Could not create:" layout)
+    (error-if-null alien "Could not create:" layout)
     layout))
 
 (define (gtk-widget-get-size widget)