diff --git a/scripts/external-tests.pd b/scripts/external-tests.pd
index b2a70f59697d6feab43952dd9adef199d190e52d..2c3ca0ae61428ad575794d394427ed14e1b9ac59 100644
--- a/scripts/external-tests.pd
+++ b/scripts/external-tests.pd
@@ -1,4 +1,4 @@
-#N canvas 4 53 659 639 12;
+#N canvas 5 53 659 668 12;
 #X obj 61 34 loadbang;
 #N canvas 107 123 756 233 load_hcs/folder_list 0;
 #X obj 357 47 inlet;
@@ -15,7 +15,7 @@
 #X connect 3 0 4 0;
 #X connect 5 0 6 0;
 #X connect 7 0 1 0;
-#X restore 164 429 pd load_hcs/folder_list;
+#X restore 164 459 pd load_hcs/folder_list;
 #X text 304 45 \$0-libdir - directory containing doc and extra;
 #N canvas 44 204 956 472 list_of_libdirs 0;
 #X obj 24 9 inlet;
@@ -134,8 +134,8 @@ pmpd purepd rjlib rradical rtc sfruit sigmund~ stdout timestretch windowing
 #X connect 17 0 19 0;
 #X connect 18 0 17 0;
 #X connect 19 0 21 0;
-#X restore 310 184 pd get_extensions;
-#X obj 164 275 list;
+#X restore 310 214 pd get_extensions;
+#X obj 164 305 list;
 #N canvas 245 192 382 392 list_drip 0;
 #X obj 67 30 inlet;
 #X obj 102 83 list length;
@@ -169,12 +169,12 @@ pmpd purepd rjlib rradical rtc sfruit sigmund~ stdout timestretch windowing
 #X connect 12 2 9 0;
 #X connect 12 2 13 0;
 #X connect 13 0 7 1;
-#X restore 164 304 pd list_drip;
+#X restore 164 334 pd list_drip;
 #X text 304 65 \$0-current-libdir - current libdir being tested;
-#X obj 290 288 t a a;
-#X obj 164 369 pack s s s;
-#X text 249 369 ext current-libdir libdir;
-#X msg 164 394 list \$3/extra/\$2/*\$1;
+#X obj 290 318 t a a;
+#X obj 164 399 pack s s s;
+#X text 249 399 ext current-libdir libdir;
+#X msg 164 424 list \$3/extra/\$2/*\$1;
 #N canvas 314 37 450 472 remove_help_patches 0;
 #X obj 40 14 inlet;
 #X obj 126 18 r \$0-ext;
@@ -224,7 +224,7 @@ pmpd purepd rjlib rradical rtc sfruit sigmund~ stdout timestretch windowing
 #X connect 18 0 16 1;
 #X connect 19 0 20 0;
 #X connect 21 0 8 0;
-#X restore 164 453 pd remove_help_patches;
+#X restore 164 483 pd remove_help_patches;
 #N canvas 0 0 450 300 remove_ext 0;
 #X obj 28 30 inlet;
 #X obj 78 150 r \$0-ext;
@@ -248,7 +248,7 @@ pmpd purepd rjlib rradical rtc sfruit sigmund~ stdout timestretch windowing
 #X connect 7 0 4 1;
 #X connect 8 0 9 0;
 #X connect 10 0 2 0;
-#X restore 164 479 pd remove_ext;
+#X restore 164 509 pd remove_ext;
 #N canvas 70 66 589 509 test_load_with_declare 0;
 #X obj 64 21 inlet;
 #N canvas 0 0 450 300 \$0-load_declare 0;
@@ -288,7 +288,7 @@ works.;
 #X connect 11 2 5 1;
 #X connect 12 0 6 0;
 #X connect 15 0 7 0;
-#X restore 164 509 pd test_load_with_declare;
+#X restore 164 539 pd test_load_with_declare;
 #N canvas 464 46 450 650 get-creator-names 0;
 #X obj 41 22 inlet;
 #X obj 41 586 outlet;
@@ -353,7 +353,7 @@ works.;
 #X connect 28 0 14 0;
 #X connect 28 1 19 1;
 #X connect 29 0 19 0;
-#X restore 132 543 pd get-creator-names;
+#X restore 132 573 pd get-creator-names;
 #N canvas 240 179 450 346 test-object 0;
 #X obj 26 36 inlet;
 #X text 72 34 creator_name argtype1 argtype2 etc.;
@@ -705,11 +705,11 @@ nameclash is in the current library we're testing then we ignore it.
 #X connect 9 0 8 0;
 #X connect 10 0 3 0;
 #X connect 10 2 11 0;
-#X restore 132 574 pd test-object;
-#X obj 164 239 trigger bang anything anything;
-#X msg 371 263 methods;
-#X obj 371 288 classinfo objectmaker;
-#X obj 371 313 s \$0-last-objectmaker-methodspace-length;
+#X restore 132 604 pd test-object;
+#X obj 164 269 trigger bang anything anything;
+#X msg 371 293 methods;
+#X obj 371 318 classinfo objectmaker;
+#X obj 371 343 s \$0-last-objectmaker-methodspace-length;
 #X text 304 85 \$0-last-objectmaker-methodspace-length;
 #X text 304 105 \$0-ext;
 #N canvas 1 53 436 328 set_\$0-libdir 0;
@@ -734,7 +734,7 @@ nameclash is in the current library we're testing then we ignore it.
 #X connect 0 0 1 0;
 #X connect 1 0 2 0;
 #X connect 1 1 3 0;
-#X restore 132 184 pd set_\$0-current_libdir;
+#X restore 132 214 pd set_\$0-current_libdir;
 #N canvas 0 0 450 300 set_\$0-ext 0;
 #X obj 78 44 inlet;
 #X obj 78 69 trigger anything anything;
@@ -743,7 +743,7 @@ nameclash is in the current library we're testing then we ignore it.
 #X connect 0 0 1 0;
 #X connect 1 0 2 0;
 #X connect 1 1 3 0;
-#X restore 164 329 pd set_\$0-ext;
+#X restore 164 359 pd set_\$0-ext;
 #N canvas 35 53 672 572 results 0;
 #X obj 62 25 inlet;
 #X obj 235 33 r \$0-current-libdir-name;
@@ -834,13 +834,15 @@ nameclash is in the current library we're testing then we ignore it.
 #X connect 40 0 41 0;
 #X connect 40 1 36 0;
 #X connect 41 0 37 0;
-#X restore 61 601 pd results;
-#X obj 132 209 t a a;
+#X restore 61 631 pd results;
+#X obj 132 239 t a a;
 #X obj 61 94 trigger bang bang bang anything;
+#X obj 132 179 t a a;
+#X obj 403 169 print testing_lib;
 #X connect 0 0 24 0;
 #X connect 1 0 13 0;
 #X connect 3 0 4 0;
-#X connect 4 0 25 0;
+#X connect 4 0 30 0;
 #X connect 5 0 6 1;
 #X connect 6 0 7 0;
 #X connect 7 0 26 0;
@@ -865,3 +867,5 @@ nameclash is in the current library we're testing then we ignore it.
 #X connect 29 1 3 0;
 #X connect 29 2 5 0;
 #X connect 29 3 9 0;
+#X connect 30 0 25 0;
+#X connect 30 1 31 0;