diff --git a/src/modules/image/testsuite.in b/src/modules/image/testsuite.in
index 89e03ea5248fb2eaaeac40be03f59f02d8c03456..7aa676021fc4b837b4c1db50c1c719768f9a5787 100644
--- a/src/modules/image/testsuite.in
+++ b/src/modules/image/testsuite.in
@@ -2,50 +2,50 @@ cond([[ master()->programs["/precompiled/image"] ]],
 [[
   test_true(programp(Image))
   test_true(objectp(clone(Image)))
-  test_true(objectp(clone(Image)->new(10,10)))
-  test_true(objectp(clone(Image)->new(10,10,1,1,1)))
-  test_eq(clone(Image)->new(10,12)->xsize(),10))
-  test_eq(clone(Image)->new(10,12)->ysize(),12))
-  test_true(objectp(clone(Image)->new(10,10,1,1,1)->copy()))
-  test_eq(clone(Image)->new(10,12)->copy()->xsize(),10))
-  test_eq(clone(Image)->new(10,12)->copy()->ysize(),12))
-  test_true(objectp(clone(Image)->new(10,10)->crop(2,2,3,3)))
-  test_true(objectp(clone(Image)->new(10,10)->autocrop()))
-  test_true(objectp(clone(Image)->new(10,10)->gray()))
-  test_true(objectp(clone(Image)->new(10,10)->color(2,2,4)))
-  test_true(objectp(clone(Image)->new(10,10)->invert()))
-  test_true(objectp(clone(Image)->new(10,10)->threshold(10,20,30)))
+  test_true(objectp(clone(Image,10,10)))
+  test_true(objectp(clone(Image,10,10,1,1,1)))
+  test_eq(clone(Image,10,12)->xsize(),10))
+  test_eq(clone(Image,10,12)->ysize(),12))
+  test_true(objectp(clone(Image,10,10,1,1,1)->copy()))
+  test_eq(clone(Image,10,12)->copy()->xsize(),10))
+  test_eq(clone(Image,10,12)->copy()->ysize(),12))
+dnl  test_true(objectp(clone(Image,10,10)->crop(2,2,3,3)))
+  test_true(objectp(clone(Image,10,10)->autocrop()))
+  test_true(objectp(clone(Image,10,10)->gray()))
+  test_true(objectp(clone(Image,10,10)->color(2,2,4)))
+  test_true(objectp(clone(Image,10,10)->invert()))
+  test_true(objectp(clone(Image,10,10)->threshold(10,20,30)))
 dnl matrix
-  test_true(objectp(clone(Image)->new(10,10)->scale(2.1)))
-  test_eq(clone(Image)->new(10,12)->scale(2.0)->xsize(),20)
-  test_eq(clone(Image)->new(10,12)->scale(2.0)->ysize(),24)
-  test_true(objectp(clone(Image)->new(10,10)->scale(0.2)))
-  test_true(objectp(clone(Image)->new(10,10)->scale(2.0,0.2)))
-  test_true(objectp(clone(Image)->new(10,10)->scale(0.2,2.2)))
-  test_true(objectp(clone(Image)->new(10,10)->scale(0.2,2.2)))
-  test_true(objectp(clone(Image)->new(10,10)->scale(0.2,2.2)))
-  test_eq(clone(Image)->new(10,10)->scale(33,57)->xsize(),33)
-  test_eq(clone(Image)->new(10,10)->scale(33,57)->ysize(),57)
-  test_true(stringp(clone(Image)->new(10,10)->toppm()))
+  test_true(objectp(clone(Image,10,10)->scale(2.1)))
+  test_eq(clone(Image,10,12)->scale(2.0)->xsize(),20)
+  test_eq(clone(Image,10,12)->scale(2.0)->ysize(),24)
+  test_true(objectp(clone(Image,10,10)->scale(0.2)))
+  test_true(objectp(clone(Image,10,10)->scale(2.0,0.2)))
+  test_true(objectp(clone(Image,10,10)->scale(0.2,2.2)))
+  test_true(objectp(clone(Image,10,10)->scale(0.2,2.2)))
+  test_true(objectp(clone(Image,10,10)->scale(0.2,2.2)))
+  test_eq(clone(Image,10,10)->scale(33,57)->xsize(),33)
+  test_eq(clone(Image,10,10)->scale(33,57)->ysize(),57)
+  test_true(stringp(clone(Image,10,10)->toppm()))
 dnl fromppm
-  test_true(stringp(clone(Image)->new(10,10)->toppm()))
-  test_true(stringp(clone(Image)->new(10,10)->togif()))
-  test_true(objectp(clone(Image)->new(10,10)->paste(clone(Image)->new(3,3),2,3)))
+  test_true(stringp(clone(Image,10,10)->toppm()))
+  test_true(stringp(clone(Image,10,10)->togif()))
+  test_true(objectp(clone(Image,10,10)->paste(clone(Image,3,3),2,3)))
 dnl past_alpha
 dnl past_mask
-  test_do(clone(Image)->new(10,10)->setcolor(2,2,2))
-  test_do(clone(Image)->new(10,10)->setpixel(2,2,2,2,2))
-  test_do(clone(Image)->new(10,10)->line(2,2,4,4,2,2,2))
-  test_do(clone(Image)->new(10,10)->box(2,2,4,4,2,2,2))
-  test_do(clone(Image)->new(10,10)->circle(2,2,4,4,2,2,2))
+  test_do(clone(Image,10,10)->setcolor(2,2,2))
+  test_do(clone(Image,10,10)->setpixel(2,2,2,2,2))
+  test_do(clone(Image,10,10)->line(2,2,4,4,2,2,2))
+  test_do(clone(Image,10,10)->box(2,2,4,4,2,2,2))
+  test_do(clone(Image,10,10)->circle(2,2,4,4,2,2,2))
 dnl tuned_box
-  test_eq(clone(Image)->new(10,10)->xsize(),10)
-  test_eq(clone(Image)->new(10,10)->ysize(),10)
+  test_eq(clone(Image,10,10)->xsize(),10)
+  test_eq(clone(Image,10,10)->ysize(),10)
   test_do(clone(Font))
   test_do(clone(Font)->load("SRCDIR/testfont"))
   test_any(object o=clone(Font); o->load("SRCDIR/testfont"); return o->height(),19)
   test_any(object o=clone(Font); o->load("SRCDIR/testfont"); return o->write("foo")->xsize(),23)
   test_any(object o=clone(Font); o->load("SRCDIR/testfont"); return o->write("foo")->ysize(),19)
-dnl  test_any(object o=clone(Font); o->load("SRCDIR/testfont"); o->write("foo"); clone(Image)->new(100,100)->paste_alpha(o); return 1,1)
+dnl  test_any(object o=clone(Font); o->load("SRCDIR/testfont"); o->write("foo"); clone(Image,100,100)->paste_alpha(o); return 1,1)
 ]])