make page switcher respect external page command

unpunch.pd

-#N canvas 0 99 788 555 10;
+#N canvas 0 99 799 557 10;
 #X msg 524 105 clear;
 #X obj 206 22 loadbang;
 #X obj 206 45 \$0;
@@ -1460,13 +1460,14 @@ num float nvis;
 #X obj 24 374 del 0;
 #X obj 24 397 f;
 #X text 89 379 <- decoupler (does this work at all?);
+#X obj 131 269 r \$0.page;
+#X obj 131 292 + 1;
 #X connect 0 0 8 0;
 #X connect 1 0 6 0;
 #X connect 2 0 6 0;
 #X connect 3 0 4 0;
 #X connect 4 0 5 0;
 #X connect 5 0 16 0;
-#X connect 5 1 3 1;
 #X connect 5 1 10 0;
 #X connect 6 0 3 0;
 #X connect 6 1 4 1;
@@ -1484,6 +1485,8 @@ num float nvis;
 #X connect 17 1 19 1;
 #X connect 18 0 19 0;
 #X connect 19 0 14 0;
+#X connect 21 0 22 0;
+#X connect 22 0 3 1;
 #X restore 212 198 pd pager.logic;
 #X connect 4 0 15 0;
 #X connect 6 0 9 0;