#614 COPYDEF creates incorrect title line if original procedure name has spaces

[David Costanzo]

You can define a procedure name with spaces in it by enclosing the name with vertical bars. However, if you use COPYDEF to copy such a procedure, the title line of the new procedure is corrupted. The first word of the original procedure name is replaced, but the rest, including the ending vertical bar remain. This can be seen with workspace procedures like POT or EDIT. As a result if you EDIT the new procedure name, you get a corrupted procedure that you can't save without further modification.

This is reproducible on FMSLogo 6.23.0 and later. Prior to that Bug #317 existed and it caused the title line of the new procedure to exactly match the title line of the original. My fix for Bug #317 was copied from UCBLogo, which introduced this bug. UCBLogo 6.2 also has this bug.

Steps to Reproduce:

TO |TWO WORDS|
  PRINT [TWO WORDS called]
END

COPYDEF "newname "|two words|
PO "newname

What Happens:
FMSLogo prints

TO newname WORDS|
  PRINT [TWO WORDS called]
END

Expected Result:
FMSLogo prints

TO newname
  PRINT [TWO WORDS called]
END