Don't forget the flags argument to create-person.

src/server/testsuite/leaks.0/leaks02.exp

@@ -5,14 +5,14 @@ source "$srcdir/config/leaks.exp"
 # Test for leaks in person creation
 
 startup_leaks
-send "3000 89 [holl "Leaky Memory 3000"] [holl "wossit"] 1 { 1000 00000000 0 [holl "Aux-items rock!"] }\n"
+send "3000 89 [holl "Leaky Memory 3000"] [holl "wossit"] 00000000 1 { 1000 00000000 0 [holl "Aux-items rock!"] }\n"
 simple_expect "=3000 6"
 shutdown_leaks
 read_usage_base
 
 startup_leaks
 for { set i 0 } { $i < 200 } { incr i 1 } {
-    send "[expr 3000 + $i] 89 [holl "Leaky Memory [expr 3000 + $i]"] [holl "wossit"] 1 { 1000 00000000 0 [holl "Aux-items rock!"] }\n"
+    send "[expr 3000 + $i] 89 [holl "Leaky Memory [expr 3000 + $i]"] [holl "wossit"] 00000000 1 { 1000 00000000 0 [holl "Aux-items rock!"] }\n"
     simple_expect "=[expr 3000 + $i] [expr 6 + $i]"
 }
 shutdown_leaks