hopefully fix canvas check now (we must clear _before_ testing)

unpunch.pd

@@ -5667,36 +5667,38 @@ internally (standalone mode) or sent to right outlet only.;
 #X obj 37 84 list append \$1;
 #X obj 37 60 b;
 #N canvas 0 99 484 335 count.canvases.with.name 0;
-#X obj 48 144 s \$1;
-#X obj 96 169 s \$1-test-canvas;
-#X obj 96 199 r \$1-test-canvas-r;
-#X msg 80 75 obj 20 20 r \$1-test-canvas \, obj 20 50 s \$1-test-canvas-r
+#X obj 100 138 s \$1;
+#X obj 66 170 s \$1-test-canvas;
+#X obj 66 192 r \$1-test-canvas-r;
+#X msg 100 76 obj 20 20 r \$1-test-canvas \, obj 20 50 s \$1-test-canvas-r
 \, connect 0 0 1 0;
-#X msg 48 117 clear;
-#X obj 96 222 f;
-#X obj 96 245 + 1;
-#X obj 96 268 t a a;
-#X obj 33 51 t b b b a b;
-#X msg 111 132 0;
+#X msg 134 115 clear;
+#X obj 66 215 f;
+#X obj 66 238 + 1;
+#X obj 66 261 t a a;
+#X msg 168 144 0;
 #X obj 33 272 f;
 #X obj 33 295 outlet;
 #X obj 33 17 inlet;
+#X floatatom 111 308 5 0 0 0 - - -;
+#X obj 33 51 t b b a b b, f 23;
 #X connect 2 0 5 0;
 #X connect 3 0 0 0;
 #X connect 4 0 0 0;
 #X connect 5 0 6 0;
 #X connect 6 0 7 0;
-#X connect 7 0 10 1;
+#X connect 7 0 9 1;
 #X connect 7 1 5 1;
-#X connect 8 0 10 0;
-#X connect 8 1 4 0;
-#X connect 8 2 1 0;
-#X connect 8 3 3 0;
-#X connect 8 4 9 0;
-#X connect 9 0 5 1;
-#X connect 9 0 10 1;
-#X connect 10 0 11 0;
-#X connect 12 0 8 0;
+#X connect 7 1 12 0;
+#X connect 8 0 5 1;
+#X connect 8 0 9 1;
+#X connect 9 0 10 0;
+#X connect 11 0 13 0;
+#X connect 13 0 9 0;
+#X connect 13 1 1 0;
+#X connect 13 2 3 0;
+#X connect 13 3 4 0;
+#X connect 13 4 8 0;
 #X restore 37 116 pd count.canvases.with.name;
 #X obj 37 139 sel 1 0;
 #X obj 56 286 s \$0.error;