diff --git a/gcc/cobol/failures/playpen/playpen.cbl b/gcc/cobol/failures/playpen/playpen.cbl
index 04f02a4112a3c177739815aa99a0c199f54fc4cf..8c6b24ff45830cce5d5c51247e7db0a79352c4a7 100644
--- a/gcc/cobol/failures/playpen/playpen.cbl
+++ b/gcc/cobol/failures/playpen/playpen.cbl
@@ -3,11 +3,13 @@
         procedure               division.
             display "I am prog:4"
             display "I am prog:5"
-            display "I am prog:6".
+            display "I am prog:6 cobol_funcname() is out of order" 
             copy    copybook.
             display "I am prog:8"
-            display "I am prog:9"
-            display "I am prog:10"
+            display "I am prog:9 cobol_funcname() is okay because of the period".
+            copy    copybook.
+            display "I am prog:11"
+            display "I am prog:12"
             goback.
         end program             prog.