diff -ru parrot-41282-o/docs/book/pir/ch06_subroutines.pod parrot-41282/docs/book/pir/ch06_subroutines.pod
--- parrot-41282-o/docs/book/pir/ch06_subroutines.pod	2009-09-16 00:22:15.000000000 +0000
+++ parrot-41282/docs/book/pir/ch06_subroutines.pod	2009-09-18 11:25:31.000000000 +0000
@@ -541,7 +541,7 @@
 
 =begin PIR_FRAGMENT
 
-  $P0 = inspect $P0, "pos_required"
+  $P1 = inspect $P0, "pos_required"
 
 =end PIR_FRAGMENT