Fixed the Gtk tests to access the final malloced-aliens list.

diff --git a/tests/gtk/test-gtk.scm b/tests/gtk/test-gtk.scm
index bd49f5f291357901393cda70c4034acb89631676..77160c8db0adf8a0daa0eda7db1e187adac913bd 100644 (file)
--- a/tests/gtk/test-gtk.scm
+++ b/tests/gtk/test-gtk.scm
@@ -43,7 +43,8 @@ USA.
     (set! await-closed-demos (access await-closed-demos new))
     (set! registered-callback-count
          (access registered-callback-count ffi))
-    (set! malloced-aliens (access malloced-aliens ffi)))
+    (set! malloced-aliens (named-lambda (malloced-aliens)
+                           (access malloced-aliens ffi))))
 
   (define-test 'gio-copy
     (let ((cwd (directory-pathname (current-load-pathname))))
@@ -79,9 +80,9 @@ USA.
 
   (define-test 'gtk-demos.mallocs
     (lambda ()
-      (assert-= (length malloced-aliens)
+      (assert-= (length (malloced-aliens))
                0
-               'EXPRESSION '(LENGTH MALLOCED-ALIENS)))))
+               'EXPRESSION '(LENGTH (MALLOCED-ALIENS))))))
 
 (if (not (warn-errors? (lambda () (load-option 'gtk))))
     (main))
\ No newline at end of file